/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / byte-opt.elc.z / byte-opt.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 46 72 69 20 | 46 65 62 20 32 33 20 31 | on Fri |Feb 23 1|
|00000040| 39 3a 33 38 3a 34 30 20 | 31 39 39 36 0a 3b 3b 3b |9:38:40 |1996.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|00000070| 70 2f 62 79 74 65 2d 6f | 70 74 2e 65 6c 0a 3b 3b |p/byte-o|pt.el.;;|
|00000080| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|00000090| 31 39 2e 33 30 2e 39 30 | 2e 35 2e 0a 3b 3b 3b 20 |19.30.90|.5..;;; |
|000000a0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000b0| 20 46 53 46 20 32 2e 31 | 30 0a 3b 3b 3b 20 6f 70 | FSF 2.1|0.;;; op|
|000000c0| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|000000d0| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|000000e0| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|000000f0| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000100| 69 6e 20 45 6d 61 63 73 | 20 31 38 2e 0a 0a 28 69 |in Emacs| 18...(i|
|00000110| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000120| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000130| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000140| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|00000150| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|00000160| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|00000170| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|00000180| 73 69 6f 6e 20 22 31 39 | 2e 32 39 22 29 29 29 0a |sion "19|.29"))).|
|00000190| 20 20 20 20 28 65 72 72 | 6f 72 20 22 60 62 79 74 |    (err|or "`byt|
|000001a0| 65 2d 6f 70 74 2e 65 6c | 27 20 77 61 73 20 63 6f |e-opt.el|' was co|
|000001b0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001c0| 20 31 39 2e 32 39 20 6f | 72 20 6c 61 74 65 72 22 | 19.29 o|r later"|
|000001d0| 29 29 0a 0a 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |))...(de|falias '|
|000001e0| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 6c 6f 67 |byte-com|pile-log|
|000001f0| 2d 6c 61 70 2d 31 20 23 | 5b 28 66 6f 72 6d 61 74 |-lap-1 #|[(format|
|00000200| 20 26 72 65 73 74 20 61 | 72 67 73 29 20 22 08 c1 | &rest a|rgs) "..|
|00000210| 48 83 5c 6e 00 c2 c3 21 | 88 c4 c5 c6 0e 06 c7 89 |H.\n...!|........|
|00000220| 1e 08 1e 09 ca cb 0e 5c | 66 5c 22 2a 23 21 87 22 |.......\|f\"*#!."|
|00000230| 20 5b 62 79 74 65 2d 63 | 6f 64 65 2d 76 65 63 74 | [byte-c|ode-vect|
|00000240| 6f 72 20 30 20 65 72 72 | 6f 72 20 22 54 68 65 20 |or 0 err|or "The |
|00000250| 6f 6c 64 20 76 65 72 73 | 69 6f 6e 20 6f 66 20 74 |old vers|ion of t|
|00000260| 68 65 20 64 69 73 61 73 | 73 65 6d 62 6c 65 72 20 |he disas|sembler |
|00000270| 69 73 20 6c 6f 61 64 65 | 64 2e 20 20 52 65 6c 6f |is loade|d.  Relo|
|00000280| 61 64 20 6e 65 77 2d 62 | 79 74 65 63 6f 6d 70 20 |ad new-b|ytecomp |
|00000290| 61 73 20 77 65 6c 6c 2e | 22 20 62 79 74 65 2d 63 |as well.|" byte-c|
|000002a0| 6f 6d 70 69 6c 65 2d 6c | 6f 67 2d 31 20 61 70 70 |ompile-l|og-1 app|
|000002b0| 6c 79 20 66 6f 72 6d 61 | 74 20 6e 69 6c 20 61 20 |ly forma|t nil a |
|000002c0| 63 20 6d 61 70 63 61 72 | 20 23 5b 28 61 72 67 29 |c mapcar| #[(arg)|
|000002d0| 20 22 08 3a 84 1e 00 08 | 39 83 1c 00 c1 c2 c3 08 | ".:....|9.......|
|000002e0| 21 5c 22 83 1c 00 c4 c3 | 08 21 c5 c6 4f 21 87 08 |!\".....|.!..O!..|
|000002f0| 87 08 40 89 16 07 a8 83 | 2d 00 c8 c9 0e 07 5c 22 |..@.....|-.....\"|
|00000300| 88 0e 07 ca 3d 83 3a 00 | 08 16 07 82 72 00 0e 07 |....=.:.|....r...|
|00000310| 0e 0b 3e 83 49 00 08 41 | 41 40 82 59 00 0e 07 0e |..>.I..A|A@.Y....|
|00000320| 5c 66 3e 83 57 00 08 41 | 40 82 59 00 08 41 16 0d |\f>.W..A|@.Y..A..|
|00000330| c3 0e 07 21 16 07 c1 ce | 0e 07 5c 22 83 72 00 c4 |...!....|..\".r..|
|00000340| 0e 07 c5 c6 4f 21 16 07 | 0e 07 cf 3d 83 7c 00 d0 |....O!..|...=.|..|
|00000350| 16 07 08 41 d1 3d 83 8d | 00 0e 07 d2 3e 84 8d 00 |...A.=..|....>...|
|00000360| 0e 07 87 d3 d4 0e 07 0e | 0d 23 87 22 20 5b 61 72 |........|.#." [ar|
|00000370| 67 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |g string|-match "|
|00000380| 5e 62 79 74 65 2d 22 20 | 73 79 6d 62 6f 6c 2d 6e |^byte-" |symbol-n|
|00000390| 61 6d 65 20 69 6e 74 65 | 72 6e 20 35 20 6e 69 6c |ame inte|rn 5 nil|
|000003a0| 20 63 20 65 72 72 6f 72 | 20 22 6e 6f 6e 2d 73 79 | c error| "non-sy|
|000003b0| 6d 62 6f 6c 69 63 20 62 | 79 74 65 2d 6f 70 20 25 |mbolic b|yte-op %|
|000003c0| 73 22 20 54 41 47 20 62 | 79 74 65 2d 67 6f 74 6f |s" TAG b|yte-goto|
|000003d0| 2d 6f 70 73 20 62 79 74 | 65 2d 63 6f 6e 73 74 72 |-ops byt|e-constr|
|000003e0| 65 66 2d 6f 70 73 20 61 | 20 22 5e 62 79 74 65 2d |ef-ops a| "^byte-|
|000003f0| 2e 22 20 63 6f 6e 73 74 | 61 6e 74 20 63 6f 6e 73 |." const|ant cons|
|00000400| 74 20 30 20 28 75 6e 62 | 69 6e 64 20 63 61 6c 6c |t 0 (unb|ind call|
|00000410| 20 63 6f 6e 73 74 29 20 | 66 6f 72 6d 61 74 20 22 | const) |format "|
|00000420| 28 25 73 20 25 73 29 22 | 5d 20 34 5d 20 61 72 67 |(%s %s)"|] 4] arg|
|00000430| 73 5d 20 37 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |s] 7]).(|defalias|
|00000440| 20 27 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 6c | 'byte-c|ompile-l|
|00000450| 6f 67 2d 6c 61 70 20 27 | 28 6d 61 63 72 6f 20 2e |og-lap '|(macro .|
|00000460| 20 23 5b 28 66 6f 72 6d | 61 74 2d 73 74 72 69 6e | #[(form|at-strin|
|00000470| 67 20 26 72 65 73 74 20 | 61 72 67 73 29 20 22 c0 |g &rest |args) ".|
|00000480| c1 c2 0b 5c 66 42 42 45 | 87 22 20 5b 61 6e 64 20 |...\fBBE|." [and |
|00000490| 28 6d 65 6d 71 20 62 79 | 74 65 2d 6f 70 74 69 6d |(memq by|te-optim|
|000004a0| 69 7a 65 2d 6c 6f 67 20 | 28 71 75 6f 74 65 20 28 |ize-log |(quote (|
|000004b0| 74 20 62 79 74 65 29 29 | 29 20 62 79 74 65 2d 63 |t byte))|) byte-c|
|000004c0| 6f 6d 70 69 6c 65 2d 6c | 6f 67 2d 6c 61 70 2d 31 |ompile-l|og-lap-1|
|000004d0| 20 66 6f 72 6d 61 74 2d | 73 74 72 69 6e 67 20 61 | format-|string a|
|000004e0| 72 67 73 5d 20 35 5d 29 | 29 0a 28 70 75 74 20 28 |rgs] 5])|).(put (|
|000004f0| 71 75 6f 74 65 20 69 6e | 6c 69 6e 65 29 20 28 71 |quote in|line) (q|
|00000500| 75 6f 74 65 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 |uote byt|e-optimi|
|00000510| 7a 65 72 29 20 28 71 75 | 6f 74 65 20 62 79 74 65 |zer) (qu|ote byte|
|00000520| 2d 6f 70 74 69 6d 69 7a | 65 2d 69 6e 6c 69 6e 65 |-optimiz|e-inline|
|00000530| 2d 68 61 6e 64 6c 65 72 | 29 29 0a 23 40 35 34 20 |-handler|)).#@54 |
|00000540| 62 79 74 65 2d 6f 70 74 | 69 6d 69 7a 65 2d 68 61 |byte-opt|imize-ha|
|00000550| 6e 64 6c 65 72 20 66 6f | 72 20 74 68 65 20 60 69 |ndler fo|r the `i|
|00000560| 6e 6c 69 6e 65 27 20 73 | 70 65 63 69 61 6c 2d 66 |nline' s|pecial-f|
|00000570| 6f 72 6d 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |orm...(d|efalias |
|00000580| 27 62 79 74 65 2d 6f 70 | 74 69 6d 69 7a 65 2d 69 |'byte-op|timize-i|
|00000590| 6e 6c 69 6e 65 2d 68 61 | 6e 64 6c 65 72 20 23 5b |nline-ha|ndler #[|
|000005a0| 28 66 6f 72 6d 29 20 22 | c0 c1 c2 0b 41 5c 22 42 |(form) "|....A\"B|
|000005b0| 87 22 20 5b 70 72 6f 67 | 6e 20 6d 61 70 63 61 72 |." [prog|n mapcar|
|000005c0| 20 23 5b 28 73 65 78 70 | 29 20 22 08 a2 89 19 39 | #[(sexp|) "....9|
|000005d0| 83 37 00 09 5c 6e 9e 41 | 84 31 00 c3 09 21 83 37 |.7..\n.A|.1...!.7|
|000005e0| 00 09 5c 66 9e 41 84 37 | 00 09 4b 89 11 3a 83 2b |..\f.A.7|..K..:.+|
|000005f0| 00 09 40 c5 3d 84 37 00 | c6 09 21 84 37 00 c7 08 |..@.=.7.|..!.7...|
|00000600| 21 82 38 00 08 29 87 22 | 20 5b 73 65 78 70 20 66 |!.8..)."| [sexp f|
|00000610| 6e 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 66 |n byte-c|ompile-f|
|00000620| 75 6e 63 74 69 6f 6e 2d | 65 6e 76 69 72 6f 6e 6d |unction-|environm|
|00000630| 65 6e 74 20 66 62 6f 75 | 6e 64 70 20 62 79 74 65 |ent fbou|ndp byte|
|00000640| 2d 63 6f 6d 70 69 6c 65 | 2d 6d 61 63 72 6f 2d 65 |-compile|-macro-e|
|00000650| 6e 76 69 72 6f 6e 6d 65 | 6e 74 20 6d 61 63 72 6f |nvironme|nt macro|
|00000660| 20 73 75 62 72 70 20 62 | 79 74 65 2d 63 6f 6d 70 | subrp b|yte-comp|
|00000670| 69 6c 65 2d 69 6e 6c 69 | 6e 65 2d 65 78 70 61 6e |ile-inli|ne-expan|
|00000680| 64 5d 20 33 5d 20 66 6f | 72 6d 5d 20 34 20 28 23 |d] 3] fo|rm] 4 (#|
|00000690| 24 20 2e 20 31 33 34 34 | 29 5d 29 0a 28 64 65 66 |$ . 1344|)]).(def|
|000006a0| 61 6c 69 61 73 20 27 62 | 79 74 65 2d 69 6e 6c 69 |alias 'b|yte-inli|
|000006b0| 6e 65 2d 6c 61 70 63 6f | 64 65 20 23 5b 28 6c 61 |ne-lapco|de #[(la|
|000006c0| 70 29 20 22 08 9f 09 a4 | 89 11 87 22 20 5b 6c 61 |p) "....|..." [la|
|000006d0| 70 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 6f |p byte-c|ompile-o|
|000006e0| 75 74 70 75 74 5d 20 32 | 5d 29 0a 28 64 65 66 61 |utput] 2|]).(defa|
|000006f0| 6c 69 61 73 20 27 62 79 | 74 65 2d 63 6f 6d 70 69 |lias 'by|te-compi|
|00000700| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|00000710| 20 23 5b 28 66 6f 72 6d | 29 20 22 08 40 89 19 5c | #[(form|) ".@..\|
|00000720| 6e 9e 41 86 12 00 c3 09 | 21 85 12 00 09 4b 89 1c |n.A.....|!....K..|
|00000730| 84 20 00 c5 c6 09 5c 22 | 88 08 82 84 00 5c 66 3a |. ....\"|.....\f:|
|00000740| 83 32 00 5c 66 40 c7 3d | 83 32 00 c8 5c 66 41 40 |.2.\f@.=|.2..\fA@|
|00000750| 21 88 5c 66 3a 83 46 00 | 5c 66 40 c7 3d 83 46 00 |!.\f:.F.|\f@.=.F.|
|00000760| c9 ca 5c 66 41 40 09 23 | 88 5c 66 39 83 54 00 cb |..\fA@.#|.\f9.T..|
|00000770| 5c 66 08 41 42 21 82 84 | 00 cc 5c 66 21 83 74 00 |\f.AB!..|..\f!.t.|
|00000780| cd 5c 66 21 88 ce 5c 66 | cf 48 d0 5c 66 d1 48 5c |.\f!..\f|.H.\f.H\|
|00000790| 66 d2 48 5c 66 d3 48 46 | 45 08 41 42 82 84 00 5c |f.H\f.HF|E.AB...\|
|000007a0| 66 40 ce 3d 84 80 00 c9 | d4 09 5c 22 88 5c 66 08 |f@.=....|..\".\f.|
|000007b0| 41 42 2a 87 22 20 5b 66 | 6f 72 6d 20 6e 61 6d 65 |AB*." [f|orm name|
|000007c0| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 66 75 | byte-co|mpile-fu|
|000007d0| 6e 63 74 69 6f 6e 2d 65 | 6e 76 69 72 6f 6e 6d 65 |nction-e|nvironme|
|000007e0| 6e 74 20 66 62 6f 75 6e | 64 70 20 66 6e 20 62 79 |nt fboun|dp fn by|
|000007f0| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 77 61 72 6e 20 |te-compi|le-warn |
|00000800| 22 61 74 74 65 6d 70 74 | 20 74 6f 20 69 6e 6c 69 |"attempt| to inli|
|00000810| 6e 65 20 25 73 20 62 65 | 66 6f 72 65 20 69 74 20 |ne %s be|fore it |
|00000820| 77 61 73 20 64 65 66 69 | 6e 65 64 22 20 61 75 74 |was defi|ned" aut|
|00000830| 6f 6c 6f 61 64 20 6c 6f | 61 64 20 65 72 72 6f 72 |oload lo|ad error|
|00000840| 20 22 66 69 6c 65 20 5c | 22 25 73 5c 22 20 64 69 | "file \|"%s\" di|
|00000850| 64 6e 27 74 20 64 65 66 | 69 6e 65 20 5c 22 25 73 |dn't def|ine \"%s|
|00000860| 5c 22 22 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |\"" byte|-compile|
|00000870| 2d 69 6e 6c 69 6e 65 2d | 65 78 70 61 6e 64 20 62 |-inline-|expand b|
|00000880| 79 74 65 2d 63 6f 64 65 | 2d 66 75 6e 63 74 69 6f |yte-code|-functio|
|00000890| 6e 2d 70 20 66 65 74 63 | 68 2d 62 79 74 65 63 6f |n-p fetc|h-byteco|
|000008a0| 64 65 20 6c 61 6d 62 64 | 61 20 30 20 62 79 74 65 |de lambd|a 0 byte|
|000008b0| 2d 63 6f 64 65 20 31 20 | 32 20 33 20 22 25 73 20 |-code 1 |2 3 "%s |
|000008c0| 69 73 20 6e 6f 74 20 61 | 20 6c 61 6d 62 64 61 22 |is not a| lambda"|
|000008d0| 5d 20 38 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 8]).(d|efalias |
|000008e0| 27 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 75 6e |'byte-co|mpile-un|
|000008f0| 66 6f 6c 64 2d 6c 61 6d | 62 64 61 20 23 5b 28 66 |fold-lam|bda #[(f|
|00000900| 6f 72 6d 20 26 6f 70 74 | 69 6f 6e 61 6c 20 6e 61 |orm &opt|ional na|
|00000910| 6d 65 29 20 22 08 84 06 | 00 c1 10 5c 6e 40 5c 6e |me) "...|...\n@\n|
|00000920| 41 1b 1c c5 5c 66 21 83 | 23 00 c4 5c 66 c6 48 c7 |A...\f!.|#..\f.H.|
|00000930| 5c 66 c8 48 5c 66 c9 48 | 5c 66 ca 48 46 45 14 5c |\f.H\f.H|\f.HFE.\|
|00000940| 66 41 40 5c 66 41 41 cb | 89 89 1e 5c 66 1e 0d 1e |fA@\fAA.|...\f...|
|00000950| 0e 1e 0f 1e 10 0e 0f 40 | 3b 83 48 00 0e 0f 41 83 |.......@|;.H...A.|
|00000960| 48 00 0e 0f 41 16 0f 0e | 0f 40 3a 83 5d 00 0e 0f |H...A...|.@:.]...|
|00000970| 40 40 d1 3d 83 5d 00 0e | 0f 41 16 0f 0e 10 83 f1 |@@.=.]..|.A......|
|00000980| 00 0e 10 40 d2 3d 83 85 | 00 0e 0d 83 74 00 d3 d4 |...@.=..|....t...|
|00000990| 08 5c 22 88 0e 10 41 84 | 7f 00 d3 d5 08 5c 22 88 |.\"...A.|.....\".|
|000009a0| d6 16 0e 82 e8 00 0e 10 | 40 d7 3d 83 aa 00 0e 10 |........|@.=.....|
|000009b0| 41 84 98 00 d3 d8 08 5c | 22 88 0e 10 41 41 83 a4 |A......\|"...AA..|
|000009c0| 00 d3 d9 08 5c 22 88 d6 | 16 0d 82 e8 00 0e 0d 83 |....\"..|........|
|000009d0| c4 00 0e 10 40 0b 85 b9 | 00 da 0b 42 44 0e 5c 66 |....@...|...BD.\f|
|000009e0| 42 16 5c 66 cb 13 82 e8 | 00 0e 0e 84 da 00 0b 84 |B.\f....|........|
|000009f0| da 00 db dc 08 5c 22 88 | cb 16 10 dd 13 82 e8 00 |.....\".|........|
|00000a00| 0e 10 40 0b 40 44 0e 5c | 66 42 16 5c 66 0b 41 13 |..@.@D.\|fB.\f.A.|
|00000a10| 0e 10 41 89 16 10 84 62 | 00 0b 83 04 01 0b dd 3d |..A....b|.......=|
|00000a20| 84 00 01 db de 08 5c 22 | 88 5c 6e 82 47 01 df e0 |......\"|.\n.G...|
|00000a30| 0e 0f 5c 22 16 0f 0e 5c | 66 83 1b 01 e1 0e 5c 66 |..\"...\|f.....\f|
|00000a40| 9f 0e 0f 42 42 82 1f 01 | e2 0e 0f 42 1e 23 0e 24 |...BB...|...B.#.$|
|00000a50| 83 44 01 0e 25 e6 3e 83 | 44 01 d6 e7 89 1e 28 1e |.D..%.>.|D.....(.|
|00000a60| 29 1e 2a eb ec ed ee 5c | 6e 21 ee 0e 23 21 23 21 |).*....\|n!..#!#!|
|00000a70| 88 2b 0e 23 29 2e 07 87 | 22 20 5b 6e 61 6d 65 20 |.+.#)...|" [name |
|00000a80| 22 61 6e 6f 6e 79 6d 6f | 75 73 20 6c 61 6d 62 64 |"anonymo|us lambd|
|00000a90| 61 22 20 66 6f 72 6d 20 | 76 61 6c 75 65 73 20 6c |a" form |values l|
|00000aa0| 61 6d 62 64 61 20 62 79 | 74 65 2d 63 6f 64 65 2d |ambda by|te-code-|
|00000ab0| 66 75 6e 63 74 69 6f 6e | 2d 70 20 30 20 62 79 74 |function|-p 0 byt|
|00000ac0| 65 2d 63 6f 64 65 20 31 | 20 32 20 33 20 6e 69 6c |e-code 1| 2 3 nil|
|00000ad0| 20 62 69 6e 64 69 6e 67 | 73 20 72 65 73 74 70 20 | binding|s restp |
|00000ae0| 6f 70 74 69 6f 6e 61 6c | 70 20 62 6f 64 79 20 61 |optional|p body a|
|00000af0| 72 67 6c 69 73 74 20 69 | 6e 74 65 72 61 63 74 69 |rglist i|nteracti|
|00000b00| 76 65 20 26 6f 70 74 69 | 6f 6e 61 6c 20 65 72 72 |ve &opti|onal err|
|00000b10| 6f 72 20 22 26 6f 70 74 | 69 6f 6e 61 6c 20 66 6f |or "&opt|ional fo|
|00000b20| 75 6e 64 20 61 66 74 65 | 72 20 26 72 65 73 74 20 |und afte|r &rest |
|00000b30| 69 6e 20 25 73 22 20 22 | 6e 6f 74 68 69 6e 67 20 |in %s" "|nothing |
|00000b40| 61 66 74 65 72 20 26 6f | 70 74 69 6f 6e 61 6c 20 |after &o|ptional |
|00000b50| 69 6e 20 25 73 22 20 74 | 20 26 72 65 73 74 20 22 |in %s" t| &rest "|
|00000b60| 6e 6f 74 68 69 6e 67 20 | 61 66 74 65 72 20 26 72 |nothing |after &r|
|00000b70| 65 73 74 20 69 6e 20 25 | 73 22 20 22 6d 75 6c 74 |est in %|s" "mult|
|00000b80| 69 70 6c 65 20 76 61 72 | 73 20 61 66 74 65 72 20 |iple var|s after |
|00000b90| 26 72 65 73 74 20 69 6e | 20 25 73 22 20 6c 69 73 |&rest in| %s" lis|
|00000ba0| 74 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 77 |t byte-c|ompile-w|
|00000bb0| 61 72 6e 20 22 61 74 74 | 65 6d 70 74 20 74 6f 20 |arn "att|empt to |
|00000bc0| 6f 70 65 6e 2d 63 6f 64 | 65 20 25 73 20 77 69 74 |open-cod|e %s wit|
|00000bd0| 68 20 74 6f 6f 20 66 65 | 77 20 61 72 67 75 6d 65 |h too fe|w argume|
|00000be0| 6e 74 73 22 20 74 6f 6f | 2d 66 65 77 20 22 61 74 |nts" too|-few "at|
|00000bf0| 74 65 6d 70 74 20 74 6f | 20 6f 70 65 6e 2d 63 6f |tempt to| open-co|
|00000c00| 64 65 20 25 73 20 77 69 | 74 68 20 74 6f 6f 20 6d |de %s wi|th too m|
|00000c10| 61 6e 79 20 61 72 67 75 | 6d 65 6e 74 73 22 20 6d |any argu|ments" m|
|00000c20| 61 70 63 61 72 20 62 79 | 74 65 2d 6f 70 74 69 6d |apcar by|te-optim|
|00000c30| 69 7a 65 2d 66 6f 72 6d | 20 6c 65 74 20 70 72 6f |ize-form| let pro|
|00000c40| 67 6e 20 6e 65 77 66 6f | 72 6d 20 62 79 74 65 2d |gn newfo|rm byte-|
|00000c50| 6f 70 74 69 6d 69 7a 65 | 20 62 79 74 65 2d 6f 70 |optimize| byte-op|
|00000c60| 74 69 6d 69 7a 65 2d 6c | 6f 67 20 28 74 20 73 6f |timize-l|og (t so|
|00000c70| 75 72 63 65 29 20 34 20 | 70 72 69 6e 74 2d 6c 65 |urce) 4 |print-le|
|00000c80| 6e 67 74 68 20 70 72 69 | 6e 74 2d 6c 65 76 65 6c |ngth pri|nt-level|
|00000c90| 20 70 72 69 6e 74 2d 65 | 73 63 61 70 65 2d 6e 65 | print-e|scape-ne|
|00000ca0| 77 6c 69 6e 65 73 20 62 | 79 74 65 2d 63 6f 6d 70 |wlines b|yte-comp|
|00000cb0| 69 6c 65 2d 6c 6f 67 2d | 31 20 66 6f 72 6d 61 74 |ile-log-|1 format|
|00000cc0| 20 22 20 20 25 73 09 3d | 3d 3e 09 25 73 22 20 70 | "  %s.=|=>.%s" p|
|00000cd0| 72 69 6e 31 2d 74 6f 2d | 73 74 72 69 6e 67 5d 20 |rin1-to-|string] |
|00000ce0| 38 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 62 |8]).(def|alias 'b|
|00000cf0| 79 74 65 2d 6f 70 74 69 | 6d 69 7a 65 2d 66 6f 72 |yte-opti|mize-for|
|00000d00| 6d 2d 63 6f 64 65 2d 77 | 61 6c 6b 65 72 20 23 5b |m-code-w|alker #[|
|00000d10| 28 66 6f 72 6d 20 66 6f | 72 2d 65 66 66 65 63 74 |(form fo|r-effect|
|00000d20| 29 20 22 08 a2 c1 1a 1b | 08 3a 84 23 00 5c 66 85 |) ".....|.:.#.\f.|
|00000d30| 1b 00 0d 86 1b 00 08 39 | 3f 86 1b 00 08 c6 3d 3f |.......9|?.....=?|
|00000d40| 85 65 02 08 82 65 02 0b | c7 3d 83 45 00 08 41 41 |.e...e..|.=.E..AA|
|00000d50| 83 36 00 c8 c9 ca 08 21 | 5c 22 88 08 41 40 85 65 |.6.....!|\"..A@.e|
|00000d60| 02 5c 66 3f 85 65 02 08 | 82 65 02 cb 0b 21 84 52 |.\f?.e..|.e...!.R|
|00000d70| 00 0b a2 cc 3d 83 58 00 | cd 08 21 82 65 02 0b ce |....=.X.|..!.e...|
|00000d80| 3e 83 70 00 0b cf d0 08 | 41 40 5c 22 d1 08 41 41 |>.p.....|A@\"..AA|
|00000d90| 5c 66 5c 22 42 42 82 65 | 02 0b d2 3d 83 80 00 0b |\f\"BB.e|...=....|
|00000da0| cf d3 08 41 5c 22 42 82 | 65 02 0b d4 3d 83 ab 00 |...A\"B.|e...=...|
|00000db0| 08 41 41 83 a2 00 d1 08 | 41 5c 66 5c 22 89 12 41 |.AA.....|A\f\"..A|
|00000dc0| 83 9d 00 d4 5c 6e 42 82 | 65 02 5c 6e 40 82 65 02 |....\nB.|e.\n@.e.|
|00000dd0| d5 08 41 40 5c 66 5c 22 | 82 65 02 0b d6 3d 83 d2 |..A@\f\"|.e...=..|
|00000de0| 00 08 41 41 83 c9 00 d6 | d5 08 41 40 5c 66 5c 22 |..AA....|..A@\f\"|
|00000df0| d1 08 41 41 c6 5c 22 42 | 42 82 65 02 d5 08 41 40 |..AA.\"B|B.e...A@|
|00000e00| 5c 66 5c 22 82 65 02 0b | d7 3d 83 f2 00 d7 d5 08 |\f\".e..|.=......|
|00000e10| 41 40 c6 5c 22 d5 d8 08 | 38 5c 66 5c 22 d1 08 41 |A@.\"...|8\f\"..A|
|00000e20| 41 41 c6 5c 22 42 42 42 | 82 65 02 0b d9 3e 83 02 |AA.\"BBB|.e...>..|
|00000e30| 01 0b d1 08 41 5c 66 5c | 22 42 82 65 02 0b da 3d |....A\f\|"B.e...=|
|00000e40| 83 1a 01 0b d5 08 41 40 | c1 5c 22 d1 08 41 41 5c |......A@|.\"..AA\|
|00000e50| 66 5c 22 42 42 82 65 02 | 0b db 3d 83 39 01 0b d5 |f\"BB.e.|..=.9...|
|00000e60| 08 41 40 c1 5c 22 d5 d8 | 08 38 5c 66 5c 22 d1 dc |.A@.\"..|.8\f\"..|
|00000e70| 08 9b 5c 66 5c 22 42 42 | 42 82 65 02 0b dd 3e 83 |..\f\"BB|B.e...>.|
|00000e80| a3 01 5c 66 83 99 01 de | 08 41 21 89 1e 1f 83 62 |..\f....|.A!....b|
|00000e90| 01 0e 1f d5 0e 1f 40 5c | 66 5c 22 a0 84 62 01 0e |......@\|f\"..b..|
|00000ea0| 1f 41 89 16 1f 84 4d 01 | 08 41 83 8b 01 0e 1f 84 |.A....M.|.A......|
|00000eb0| 8b 01 0e 20 83 8b 01 0e | 21 e2 3e 83 8b 01 c6 e3 |... ....|!.>.....|
|00000ec0| 89 1e 24 1e 25 1e 26 e7 | e8 e9 ca 08 21 5c 22 21 |..$.%.&.|....!\"!|
|00000ed0| 88 2b 0e 1f 85 95 01 0b | 0e 1f 9f 42 29 82 65 02 |.+......|...B).e.|
|00000ee0| 0b cf d5 08 41 5c 22 42 | 82 65 02 0b ea 3d 83 b4 |....A\"B|.e...=..|
|00000ef0| 01 c8 eb ca 08 21 5c 22 | 88 c1 82 65 02 0b ec 3e |.....!\"|...e...>|
|00000f00| 83 be 01 08 82 65 02 0b | ed 3d 83 d3 01 0b d5 08 |.....e..|.=......|
|00000f10| 41 40 5c 66 5c 22 08 41 | 41 42 42 82 65 02 0b ee |A@\f\".A|ABB.e...|
|00000f20| 3d 83 e8 01 0b d5 08 41 | 40 c1 5c 22 08 41 41 42 |=......A|@.\".AAB|
|00000f30| 42 82 65 02 08 ef 08 0e | 30 5c 22 89 10 3d 84 fb |B.e.....|0\"..=..|
|00000f40| 01 d5 08 5c 66 5c 22 82 | 65 02 0b 39 84 12 02 f1 |...\f\".|e..9....|
|00000f50| 0b a2 3d 84 0e 02 c8 f2 | ca 0b 21 5c 22 88 08 82 |..=.....|..!\"...|
|00000f60| 65 02 5c 66 83 5e 02 0b | f3 4e 89 12 83 5e 02 0d |e.\f.^..|.N...^..|
|00000f70| 84 32 02 5c 6e f4 3d 84 | 32 02 c8 f5 ca 08 21 5c |.2.\n.=.|2.....!\|
|00000f80| 22 88 82 5e 02 0e 20 83 | 51 02 0e 21 e2 3e 83 51 |"..^.. .|Q..!.>.Q|
|00000f90| 02 c6 e3 89 1e 24 1e 25 | 1e 26 e7 e8 f6 ca 0b 21 |.....$.%|.&.....!|
|00000fa0| 5c 22 21 88 2b d5 d4 f7 | 08 41 f8 5c 22 42 c6 5c |\"!.+...|.A.\"B.\|
|00000fb0| 22 82 65 02 0b cf d5 08 | 41 5c 22 42 2a 87 22 20 |".e.....|A\"B*." |
|00000fc0| 5b 66 6f 72 6d 20 6e 69 | 6c 20 74 6d 70 20 66 6e |[form ni|l tmp fn|
|00000fd0| 20 66 6f 72 2d 65 66 66 | 65 63 74 20 62 79 74 65 | for-eff|ect byte|
|00000fe0| 2d 63 6f 6d 70 69 6c 65 | 2d 64 65 6c 65 74 65 2d |-compile|-delete-|
|00000ff0| 65 72 72 6f 72 73 20 74 | 20 71 75 6f 74 65 20 62 |errors t| quote b|
|00001000| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 77 61 72 6e |yte-comp|ile-warn|
|00001010| 20 22 6d 61 6c 66 6f 72 | 6d 65 64 20 71 75 6f 74 | "malfor|med quot|
|00001020| 65 20 66 6f 72 6d 3a 20 | 25 73 22 20 70 72 69 6e |e form: |%s" prin|
|00001030| 31 2d 74 6f 2d 73 74 72 | 69 6e 67 20 62 79 74 65 |1-to-str|ing byte|
|00001040| 2d 63 6f 64 65 2d 66 75 | 6e 63 74 69 6f 6e 2d 70 |-code-fu|nction-p|
|00001050| 20 6c 61 6d 62 64 61 20 | 62 79 74 65 2d 63 6f 6d | lambda |byte-com|
|00001060| 70 69 6c 65 2d 75 6e 66 | 6f 6c 64 2d 6c 61 6d 62 |pile-unf|old-lamb|
|00001070| 64 61 20 28 6c 65 74 20 | 6c 65 74 2a 29 20 6d 61 |da (let |let*) ma|
|00001080| 70 63 61 72 20 23 5b 28 | 62 69 6e 64 69 6e 67 29 |pcar #[(|binding)|
|00001090| 20 22 08 39 83 07 00 08 | 87 08 41 41 83 14 00 c1 | ".9....|..AA....|
|000010a0| c2 c3 08 21 5c 22 88 08 | 40 c4 08 41 40 c5 5c 22 |...!\"..|@..A@.\"|
|000010b0| 44 87 22 20 5b 62 69 6e | 64 69 6e 67 20 62 79 74 |D." [bin|ding byt|
|000010c0| 65 2d 63 6f 6d 70 69 6c | 65 2d 77 61 72 6e 20 22 |e-compil|e-warn "|
|000010d0| 6d 61 6c 66 6f 72 6d 65 | 64 20 6c 65 74 20 62 69 |malforme|d let bi|
|000010e0| 6e 64 69 6e 67 3a 20 25 | 73 22 20 70 72 69 6e 31 |nding: %|s" prin1|
|000010f0| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 62 79 74 65 2d |-to-stri|ng byte-|
|00001100| 6f 70 74 69 6d 69 7a 65 | 2d 66 6f 72 6d 20 6e 69 |optimize|-form ni|
|00001110| 6c 5d 20 34 5d 20 62 79 | 74 65 2d 6f 70 74 69 6d |l] 4] by|te-optim|
|00001120| 69 7a 65 2d 62 6f 64 79 | 20 63 6f 6e 64 20 23 5b |ize-body| cond #[|
|00001130| 28 63 6c 61 75 73 65 29 | 20 22 08 3a 83 11 00 c1 |(clause)| ".:....|
|00001140| 08 40 c2 5c 22 c3 08 41 | 5c 66 5c 22 42 87 c5 c6 |.@.\"..A|\f\"B...|
|00001150| c7 08 21 5c 22 88 08 87 | 22 20 5b 63 6c 61 75 73 |..!\"...|" [claus|
|00001160| 65 20 62 79 74 65 2d 6f | 70 74 69 6d 69 7a 65 2d |e byte-o|ptimize-|
|00001170| 66 6f 72 6d 20 6e 69 6c | 20 62 79 74 65 2d 6f 70 |form nil| byte-op|
|00001180| 74 69 6d 69 7a 65 2d 62 | 6f 64 79 20 66 6f 72 2d |timize-b|ody for-|
|00001190| 65 66 66 65 63 74 20 62 | 79 74 65 2d 63 6f 6d 70 |effect b|yte-comp|
|000011a0| 69 6c 65 2d 77 61 72 6e | 20 22 6d 61 6c 66 6f 72 |ile-warn| "malfor|
|000011b0| 6d 65 64 20 63 6f 6e 64 | 20 66 6f 72 6d 3a 20 25 |med cond| form: %|
|000011c0| 73 22 20 70 72 69 6e 31 | 2d 74 6f 2d 73 74 72 69 |s" prin1|-to-stri|
|000011d0| 6e 67 5d 20 34 5d 20 70 | 72 6f 67 6e 20 62 79 74 |ng] 4] p|rogn byt|
|000011e0| 65 2d 6f 70 74 69 6d 69 | 7a 65 2d 66 6f 72 6d 20 |e-optimi|ze-form |
|000011f0| 70 72 6f 67 31 20 70 72 | 6f 67 32 20 32 20 28 73 |prog1 pr|og2 2 (s|
|00001200| 61 76 65 2d 65 78 63 75 | 72 73 69 6f 6e 20 73 61 |ave-excu|rsion sa|
|00001210| 76 65 2d 72 65 73 74 72 | 69 63 74 69 6f 6e 29 20 |ve-restr|iction) |
|00001220| 77 69 74 68 2d 6f 75 74 | 70 75 74 2d 74 6f 2d 74 |with-out|put-to-t|
|00001230| 65 6d 70 2d 62 75 66 66 | 65 72 20 69 66 20 33 20 |emp-buff|er if 3 |
|00001240| 28 61 6e 64 20 6f 72 29 | 20 72 65 76 65 72 73 65 |(and or)| reverse|
|00001250| 20 62 61 63 6b 77 61 72 | 64 73 20 62 79 74 65 2d | backwar|ds byte-|
|00001260| 6f 70 74 69 6d 69 7a 65 | 20 62 79 74 65 2d 6f 70 |optimize| byte-op|
|00001270| 74 69 6d 69 7a 65 2d 6c | 6f 67 20 28 74 20 73 6f |timize-l|og (t so|
|00001280| 75 72 63 65 29 20 34 20 | 70 72 69 6e 74 2d 6c 65 |urce) 4 |print-le|
|00001290| 6e 67 74 68 20 70 72 69 | 6e 74 2d 6c 65 76 65 6c |ngth pri|nt-level|
|000012a0| 20 70 72 69 6e 74 2d 65 | 73 63 61 70 65 2d 6e 65 | print-e|scape-ne|
|000012b0| 77 6c 69 6e 65 73 20 62 | 79 74 65 2d 63 6f 6d 70 |wlines b|yte-comp|
|000012c0| 69 6c 65 2d 6c 6f 67 2d | 31 20 66 6f 72 6d 61 74 |ile-log-|1 format|
|000012d0| 20 22 20 20 61 6c 6c 20 | 73 75 62 66 6f 72 6d 73 | "  all |subforms|
|000012e0| 20 6f 66 20 25 73 20 63 | 61 6c 6c 65 64 20 66 6f | of %s c|alled fo|
|000012f0| 72 20 65 66 66 65 63 74 | 3b 20 64 65 6c 65 74 65 |r effect|; delete|
|00001300| 64 22 20 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |d" inter|active "|
|00001310| 6d 69 73 70 6c 61 63 65 | 64 20 69 6e 74 65 72 61 |misplace|d intera|
|00001320| 63 74 69 76 65 20 73 70 | 65 63 3a 20 25 73 22 20 |ctive sp|ec: %s" |
|00001330| 28 64 65 66 75 6e 20 64 | 65 66 6d 61 63 72 6f 20 |(defun d|efmacro |
|00001340| 66 75 6e 63 74 69 6f 6e | 20 63 6f 6e 64 69 74 69 |function| conditi|
|00001350| 6f 6e 2d 63 61 73 65 20 | 73 61 76 65 2d 77 69 6e |on-case |save-win|
|00001360| 64 6f 77 2d 65 78 63 75 | 72 73 69 6f 6e 29 20 75 |dow-excu|rsion) u|
|00001370| 6e 77 69 6e 64 2d 70 72 | 6f 74 65 63 74 20 63 61 |nwind-pr|otect ca|
|00001380| 74 63 68 20 6d 61 63 72 | 6f 65 78 70 61 6e 64 20 |tch macr|oexpand |
|00001390| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 6d 61 63 |byte-com|pile-mac|
|000013a0| 72 6f 2d 65 6e 76 69 72 | 6f 6e 6d 65 6e 74 20 6d |ro-envir|onment m|
|000013b0| 6f 63 6b 6c 69 73 70 20 | 22 25 73 20 69 73 20 61 |ocklisp |"%s is a|
|000013c0| 20 6d 61 6c 66 6f 72 6d | 65 64 20 66 75 6e 63 74 | malform|ed funct|
|000013d0| 69 6f 6e 22 20 73 69 64 | 65 2d 65 66 66 65 63 74 |ion" sid|e-effect|
|000013e0| 2d 66 72 65 65 20 65 72 | 72 6f 72 2d 66 72 65 65 |-free er|ror-free|
|000013f0| 20 22 25 73 20 63 61 6c | 6c 65 64 20 66 6f 72 20 | "%s cal|led for |
|00001400| 65 66 66 65 63 74 22 20 | 22 20 20 25 73 20 63 61 |effect" |"  %s ca|
|00001410| 6c 6c 65 64 20 66 6f 72 | 20 65 66 66 65 63 74 3b |lled for| effect;|
|00001420| 20 64 65 6c 65 74 65 64 | 22 20 61 70 70 65 6e 64 | deleted|" append|
|00001430| 20 28 6e 69 6c 29 5d 20 | 37 5d 29 0a 23 40 34 31 | (nil)] |7]).#@41|
|00001440| 20 54 68 65 20 73 6f 75 | 72 63 65 2d 6c 65 76 65 | The sou|rce-leve|
|00001450| 6c 20 70 61 73 73 20 6f | 66 20 74 68 65 20 6f 70 |l pass o|f the op|
|00001460| 74 69 6d 69 7a 65 72 2e | 1f 0a 28 64 65 66 61 6c |timizer.|..(defal|
|00001470| 69 61 73 20 27 62 79 74 | 65 2d 6f 70 74 69 6d 69 |ias 'byt|e-optimi|
|00001480| 7a 65 2d 66 6f 72 6d 20 | 23 5b 28 66 6f 72 6d 20 |ze-form |#[(form |
|00001490| 26 6f 70 74 69 6f 6e 61 | 6c 20 66 6f 72 2d 65 66 |&optiona|l for-ef|
|000014a0| 66 65 63 74 29 20 22 c0 | 09 5c 6e 5c 22 11 c3 89 |fect) ".|.\n\"...|
|000014b0| 1c 1d 09 3a 83 5f 00 09 | 40 39 83 5f 00 5c 6e 83 |...:._..|@9._.\n.|
|000014c0| 21 00 09 40 c6 4e 89 15 | 84 2a 00 09 40 c7 4e 89 |!..@.N..|.*..@.N.|
|000014d0| 15 83 5f 00 09 0d 09 21 | 89 14 3d 84 5f 00 0e 08 |.._....!|..=._...|
|000014e0| 83 56 00 0e 09 ca 3e 83 | 56 00 cb cc 89 1e 0d 1e |.V....>.|V.......|
|000014f0| 0e 1e 0f d0 d1 d2 d3 09 | 21 d3 5c 66 21 23 21 88 |........|!.\f!#!.|
|00001500| 2b d4 5c 66 5c 6e 5c 22 | 89 14 82 60 00 09 2a 87 |+.\f\n\"|...`..*.|
|00001510| 22 20 5b 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 |" [byte-|optimize|
|00001520| 2d 66 6f 72 6d 2d 63 6f | 64 65 2d 77 61 6c 6b 65 |-form-co|de-walke|
|00001530| 72 20 66 6f 72 6d 20 66 | 6f 72 2d 65 66 66 65 63 |r form f|or-effec|
|00001540| 74 20 6e 69 6c 20 6e 65 | 77 20 6f 70 74 20 62 79 |t nil ne|w opt by|
|00001550| 74 65 2d 66 6f 72 2d 65 | 66 66 65 63 74 2d 6f 70 |te-for-e|ffect-op|
|00001560| 74 69 6d 69 7a 65 72 20 | 62 79 74 65 2d 6f 70 74 |timizer |byte-opt|
|00001570| 69 6d 69 7a 65 72 20 62 | 79 74 65 2d 6f 70 74 69 |imizer b|yte-opti|
|00001580| 6d 69 7a 65 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 |mize byt|e-optimi|
|00001590| 7a 65 2d 6c 6f 67 20 28 | 74 20 73 6f 75 72 63 65 |ze-log (|t source|
|000015a0| 29 20 74 20 34 20 70 72 | 69 6e 74 2d 6c 65 6e 67 |) t 4 pr|int-leng|
|000015b0| 74 68 20 70 72 69 6e 74 | 2d 6c 65 76 65 6c 20 70 |th print|-level p|
|000015c0| 72 69 6e 74 2d 65 73 63 | 61 70 65 2d 6e 65 77 6c |rint-esc|ape-newl|
|000015d0| 69 6e 65 73 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c |ines byt|e-compil|
|000015e0| 65 2d 6c 6f 67 2d 31 20 | 66 6f 72 6d 61 74 20 22 |e-log-1 |format "|
|000015f0| 20 20 25 73 09 3d 3d 3e | 09 25 73 22 20 70 72 69 |  %s.==>|.%s" pri|
|00001600| 6e 31 2d 74 6f 2d 73 74 | 72 69 6e 67 20 62 79 74 |n1-to-st|ring byt|
|00001610| 65 2d 6f 70 74 69 6d 69 | 7a 65 2d 66 6f 72 6d 5d |e-optimi|ze-form]|
|00001620| 20 37 20 28 23 24 20 2e | 20 35 31 38 35 29 5d 29 | 7 (#$ .| 5185)])|
|00001630| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 62 79 74 65 |.(defali|as 'byte|
|00001640| 2d 6f 70 74 69 6d 69 7a | 65 2d 62 6f 64 79 20 23 |-optimiz|e-body #|
|00001650| 5b 28 66 6f 72 6d 73 20 | 61 6c 6c 2d 66 6f 72 2d |[(forms |all-for-|
|00001660| 65 66 66 65 63 74 29 20 | 22 08 c1 89 89 1a 1b 1c |effect) |".......|
|00001670| 89 1d 83 32 00 0e 06 86 | 13 00 0d 41 13 0d 40 85 |...2....|...A..@.|
|00001680| 1e 00 c7 0d 40 0b 5c 22 | 89 12 84 27 00 0b 84 2b |....@.\"|...'...+|
|00001690| 00 5c 6e 5c 66 42 14 0d | 41 89 15 84 5c 66 00 5c |.\n\fB..|A...\f.\|
|000016a0| 66 9f 2c 87 22 20 5b 66 | 6f 72 6d 73 20 6e 69 6c |f.,." [f|orms nil|
|000016b0| 20 6e 65 77 20 66 65 20 | 72 65 73 75 6c 74 20 72 | new fe |result r|
|000016c0| 65 73 74 20 61 6c 6c 2d | 66 6f 72 2d 65 66 66 65 |est all-|for-effe|
|000016d0| 63 74 20 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 |ct byte-|optimize|
|000016e0| 2d 66 6f 72 6d 5d 20 35 | 5d 29 0a 28 64 65 66 61 |-form] 5|]).(defa|
|000016f0| 6c 69 61 73 20 27 62 79 | 74 65 2d 63 6f 6d 70 69 |lias 'by|te-compi|
|00001700| 6c 65 2d 74 72 75 65 63 | 6f 6e 73 74 70 20 27 28 |le-truec|onstp '(|
|00001710| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 66 6f 72 6d 29 |macro . |#[(form)|
|00001720| 20 22 c0 c1 5c 6e 44 c3 | c4 5c 6e 44 c5 42 42 44 | "..\nD.|.\nD.BBD|
|00001730| c6 c7 5c 6e 44 44 43 c3 | 5c 6e c8 42 42 43 46 87 |..\nDDC.|\n.BBCF.|
|00001740| 22 20 5b 63 6f 6e 64 20 | 63 6f 6e 73 70 20 66 6f |" [cond |consp fo|
|00001750| 72 6d 20 65 71 20 63 61 | 72 20 28 28 71 75 6f 74 |rm eq ca|r ((quot|
|00001760| 65 20 71 75 6f 74 65 29 | 29 20 6e 6f 74 20 73 79 |e quote)|) not sy|
|00001770| 6d 62 6f 6c 70 20 28 74 | 29 5d 20 36 5d 29 29 0a |mbolp (t|)] 6])).|
|00001780| 28 64 65 66 61 6c 69 61 | 73 20 27 62 79 74 65 2d |(defalia|s 'byte-|
|00001790| 6f 70 74 69 6d 69 7a 65 | 2d 61 73 73 6f 63 69 61 |optimize|-associa|
|000017a0| 74 69 76 65 2d 6d 61 74 | 68 20 23 5b 28 66 6f 72 |tive-mat|h #[(for|
|000017b0| 6d 29 20 22 c0 89 09 41 | 1a 1b 1c 5c 6e 83 25 00 |m) "...A|...\n.%.|
|000017c0| 5c 6e 40 a7 83 19 00 5c | 6e 40 0b 42 13 82 1e 00 |\n@....\|n@.B....|
|000017d0| 5c 6e 40 5c 66 42 14 5c | 6e 41 89 12 84 0b 00 0b |\n@\fB.\|nA......|
|000017e0| 41 83 50 00 5c 66 83 48 | 00 09 40 c5 09 40 0b 5c |A.P.\f.H|..@..@.\|
|000017f0| 22 5c 66 41 83 42 00 09 | 40 5c 66 9f 42 82 44 00 |"\fA.B..|@\f.B.D.|
|00001800| 5c 66 40 45 82 51 00 c5 | 09 40 0b 5c 22 82 51 00 |\f@E.Q..|.@.\".Q.|
|00001810| 09 2b 87 22 20 5b 6e 69 | 6c 20 66 6f 72 6d 20 72 |.+." [ni|l form r|
|00001820| 65 73 74 20 63 6f 6e 73 | 74 61 6e 74 73 20 61 72 |est cons|tants ar|
|00001830| 67 73 20 61 70 70 6c 79 | 5d 20 35 5d 29 0a 28 64 |gs apply|] 5]).(d|
|00001840| 65 66 61 6c 69 61 73 20 | 27 62 79 74 65 2d 6f 70 |efalias |'byte-op|
|00001850| 74 69 6d 69 7a 65 2d 6e | 6f 6e 61 73 73 6f 63 69 |timize-n|onassoci|
|00001860| 61 74 69 76 65 2d 6d 61 | 74 68 20 23 5b 28 66 6f |ative-ma|th #[(fo|
|00001870| 72 6d 29 20 22 08 41 40 | a7 83 0f 00 08 41 41 40 |rm) ".A@|.....AA@|
|00001880| a7 84 11 00 08 87 08 41 | 40 08 41 41 19 1a 09 40 |.......A|@.AA...@|
|00001890| a7 83 2d 00 08 40 5c 6e | 09 40 5c 22 12 09 41 89 |..-..@\n|.@\"..A.|
|000018a0| 11 82 1a 00 09 83 3a 00 | 08 40 5c 6e 09 42 42 82 |......:.|.@\n.BB.|
|000018b0| 3b 00 5c 6e 2a 87 22 20 | 5b 66 6f 72 6d 20 72 65 |;.\n*." |[form re|
|000018c0| 73 74 20 63 6f 6e 73 74 | 61 6e 74 5d 20 34 5d 29 |st const|ant] 4])|
|000018d0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 62 79 74 65 |.(defali|as 'byte|
|000018e0| 2d 6f 70 74 69 6d 69 7a | 65 2d 61 70 70 72 6f 78 |-optimiz|e-approx|
|000018f0| 2d 65 71 75 61 6c 20 23 | 5b 28 78 20 79 29 20 22 |-equal #|[(x y) "|
|00001900| c0 09 5c 6e 5a 21 c3 5f | c0 09 5c 6e 5c 5c 21 57 |..\nZ!._|..\n\\!W|
|00001910| 87 22 20 5b 61 62 73 20 | 78 20 79 20 31 30 30 5d |." [abs |x y 100]|
|00001920| 20 34 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 4]).(de|falias '|
|00001930| 62 79 74 65 2d 6f 70 74 | 69 6d 69 7a 65 2d 64 65 |byte-opt|imize-de|
|00001940| 6c 61 79 2d 63 6f 6e 73 | 74 61 6e 74 73 2d 6d 61 |lay-cons|tants-ma|
|00001950| 74 68 20 23 5b 28 66 6f | 72 6d 20 73 74 61 72 74 |th #[(fo|rm start|
|00001960| 20 66 75 6e 29 20 22 08 | 53 09 9b 09 5c 6e c3 3e | fun) ".|S...\n.>|
|00001970| 1c 1d 1e 06 0e 06 41 89 | 16 06 41 83 78 00 0e 06 |......A.|..A.x...|
|00001980| 40 a8 83 5c 66 00 c7 1e | 08 c9 09 21 11 08 53 09 |@..\f...|...!..S.|
|00001990| 9b 16 06 0e 06 41 89 16 | 06 83 4a 00 0e 06 40 a8 |.....A..|..J...@.|
|000019a0| 83 2a 00 0e 06 40 0e 08 | 42 16 08 0e 06 c7 a0 88 |.*...@..|B.......|
|000019b0| 82 2a 00 5c 66 83 67 00 | ca cb 5c 6e cc cd 0e 08 |.*.\f.g.|..\n....|
|000019c0| 5c 22 5c 22 cd cb 5c 6e | 0e 08 5c 22 21 5c 22 84 |\"\"..\n|..\"!\".|
|000019d0| 67 00 0d 11 82 74 00 ce | c7 09 5c 22 cb 5c 6e 0e |g....t..|..\".\n.|
|000019e0| 08 9f 5c 22 43 a4 11 29 | 82 5c 66 00 09 2b 87 22 |..\"C..)|.\f..+."|
|000019f0| 20 5b 73 74 61 72 74 20 | 66 6f 72 6d 20 66 75 6e | [start |form fun|
|00001a00| 20 28 2b 20 2a 29 20 6f | 76 65 72 66 6c 6f 77 20 | (+ *) o|verflow |
|00001a10| 6f 72 69 67 20 72 65 73 | 74 20 6e 69 6c 20 63 6f |orig res|t nil co|
|00001a20| 6e 73 74 61 6e 74 73 20 | 63 6f 70 79 2d 73 65 71 |nstants |copy-seq|
|00001a30| 75 65 6e 63 65 20 62 79 | 74 65 2d 6f 70 74 69 6d |uence by|te-optim|
|00001a40| 69 7a 65 2d 61 70 70 72 | 6f 78 2d 65 71 75 61 6c |ize-appr|ox-equal|
|00001a50| 20 61 70 70 6c 79 20 6d | 61 70 63 61 72 20 66 6c | apply m|apcar fl|
|00001a60| 6f 61 74 20 64 65 6c 71 | 5d 20 36 5d 29 0a 28 64 |oat delq|] 6]).(d|
|00001a70| 65 66 61 6c 69 61 73 20 | 27 62 79 74 65 2d 6f 70 |efalias |'byte-op|
|00001a80| 74 69 6d 69 7a 65 2d 70 | 6c 75 73 20 23 5b 28 66 |timize-p|lus #[(f|
|00001a90| 6f 72 6d 29 20 22 c0 09 | c2 c3 23 11 c4 09 3e 83 |orm) "..|..#...>.|
|00001aa0| 13 00 c5 c4 c6 09 21 5c | 22 11 09 41 84 1d 00 c7 |......!\|"..A....|
|00001ab0| c8 c9 8f 87 09 87 22 20 | 5b 62 79 74 65 2d 6f 70 |......" |[byte-op|
|00001ac0| 74 69 6d 69 7a 65 2d 64 | 65 6c 61 79 2d 63 6f 6e |timize-d|elay-con|
|00001ad0| 73 74 61 6e 74 73 2d 6d | 61 74 68 20 66 6f 72 6d |stants-m|ath form|
|00001ae0| 20 31 20 2b 20 30 20 64 | 65 6c 71 20 63 6f 70 79 | 1 + 0 d|elq copy|
|00001af0| 2d 73 65 71 75 65 6e 63 | 65 20 6e 69 6c 20 28 65 |-sequenc|e nil (e|
|00001b00| 76 61 6c 20 66 6f 72 6d | 29 20 28 28 65 72 72 6f |val form|) ((erro|
|00001b10| 72 20 66 6f 72 6d 29 29 | 5d 20 34 5d 29 0a 28 64 |r form))|] 4]).(d|
|00001b20| 65 66 61 6c 69 61 73 20 | 27 62 79 74 65 2d 6f 70 |efalias |'byte-op|
|00001b30| 74 69 6d 69 7a 65 2d 6d | 69 6e 75 73 20 23 5b 28 |timize-m|inus #[(|
|00001b40| 66 6f 72 6d 29 20 22 c0 | 09 c2 c3 23 11 c4 c5 09 |form) ".|...#....|
|00001b50| 9b 21 40 89 1e 06 c7 3d | 83 26 00 c8 09 21 89 11 |.!@....=|.&...!..|
|00001b60| 41 41 c9 c7 c5 09 9b 5c | 22 a1 88 82 49 00 09 41 |AA.....\|"...I..A|
|00001b70| 40 a7 83 49 00 0e 06 a7 | 83 49 00 ca 09 41 40 0e |@..I....|.I...A@.|
|00001b80| 06 5a c2 09 38 45 c9 0e | 06 c8 c5 09 9b 21 5c 22 |.Z..8E..|.....!\"|
|00001b90| a4 11 29 cb 09 41 41 41 | 84 63 00 09 41 40 c7 3d |..)..AAA|.c..A@.=|
|00001ba0| 83 63 00 09 40 09 41 41 | 42 82 64 00 09 21 87 22 |.c..@.AA|B.d..!."|
|00001bb0| 20 5b 62 79 74 65 2d 6f | 70 74 69 6d 69 7a 65 2d | [byte-o|ptimize-|
|00001bc0| 64 65 6c 61 79 2d 63 6f | 6e 73 74 61 6e 74 73 2d |delay-co|nstants-|
|00001bd0| 6d 61 74 68 20 66 6f 72 | 6d 20 32 20 2b 20 72 65 |math for|m 2 + re|
|00001be0| 76 65 72 73 65 20 33 20 | 6c 61 73 74 20 30 20 63 |verse 3 |last 0 c|
|00001bf0| 6f 70 79 2d 73 65 71 75 | 65 6e 63 65 20 64 65 6c |opy-sequ|ence del|
|00001c00| 71 20 2d 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |q - byte|-optimiz|
|00001c10| 65 2d 70 72 65 64 69 63 | 61 74 65 5d 20 37 5d 29 |e-predic|ate] 7])|
|00001c20| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 62 79 74 65 |.(defali|as 'byte|
|00001c30| 2d 6f 70 74 69 6d 69 7a | 65 2d 6d 75 6c 74 69 70 |-optimiz|e-multip|
|00001c40| 6c 79 20 23 5b 28 66 6f | 72 6d 29 20 22 c0 09 c2 |ly #[(fo|rm) "...|
|00001c50| c3 23 89 11 41 84 0d 00 | c2 87 c4 09 21 40 89 1d |.#..A...|....!@..|
|00001c60| c6 3d 83 1f 00 c7 09 41 | 42 82 6d 00 0d c2 3d 83 |.=.....A|B.m...=.|
|00001c70| 2e 00 c8 c2 c9 09 21 5c | 22 82 6d 00 0d ca 3d 83 |......!\|".m...=.|
|00001c80| 3f 00 cb c8 ca c9 09 21 | 5c 22 44 82 6d 00 0d cc |?......!|\"D.m...|
|00001c90| 3d 83 6c 00 cd ce cf 09 | 41 5c 22 3e 83 6c 00 c8 |=.l.....|A\">.l..|
|00001ca0| cc c9 09 21 5c 22 89 11 | 09 41 89 11 40 39 83 57 |...!\"..|.A..@9.W|
|00001cb0| 00 09 d0 09 40 09 40 45 | a0 88 82 6d 00 09 29 87 |....@.@E|...m..).|
|00001cc0| 22 20 5b 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 |" [byte-|optimize|
|00001cd0| 2d 64 65 6c 61 79 2d 63 | 6f 6e 73 74 61 6e 74 73 |-delay-c|onstants|
|00001ce0| 2d 6d 61 74 68 20 66 6f | 72 6d 20 31 20 2a 20 72 |-math fo|rm 1 * r|
|00001cf0| 65 76 65 72 73 65 20 6c | 61 73 74 20 30 20 70 72 |everse l|ast 0 pr|
|00001d00| 6f 67 6e 20 64 65 6c 71 | 20 63 6f 70 79 2d 73 65 |ogn delq| copy-se|
|00001d10| 71 75 65 6e 63 65 20 2d | 31 20 2d 20 32 20 74 20 |quence -|1 - 2 t |
|00001d20| 6d 61 70 63 61 72 20 73 | 79 6d 62 6f 6c 70 20 2b |mapcar s|ymbolp +|
|00001d30| 5d 20 36 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 6]).(d|efalias |
|00001d40| 27 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 62 75 |'byte-co|mpile-bu|
|00001d50| 74 6c 61 73 74 20 23 5b | 28 66 6f 72 6d 29 20 22 |tlast #[|(form) "|
|00001d60| c0 09 21 41 9f 87 22 20 | 5b 72 65 76 65 72 73 65 |..!A.." |[reverse|
|00001d70| 20 66 6f 72 6d 5d 20 32 | 5d 29 0a 28 70 75 74 20 | form] 2|]).(put |
|00001d80| 28 71 75 6f 74 65 20 62 | 79 74 65 2d 63 6f 6d 70 |(quote b|yte-comp|
|00001d90| 69 6c 65 2d 62 75 74 6c | 61 73 74 29 20 28 71 75 |ile-butl|ast) (qu|
|00001da0| 6f 74 65 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |ote byte|-optimiz|
|00001db0| 65 72 29 20 28 71 75 6f | 74 65 20 62 79 74 65 2d |er) (quo|te byte-|
|00001dc0| 63 6f 6d 70 69 6c 65 2d | 69 6e 6c 69 6e 65 2d 65 |compile-|inline-e|
|00001dd0| 78 70 61 6e 64 29 29 0a | 28 64 65 66 61 6c 69 61 |xpand)).|(defalia|
|00001de0| 73 20 27 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 |s 'byte-|optimize|
|00001df0| 2d 64 69 76 69 64 65 20 | 23 5b 28 66 6f 72 6d 29 |-divide |#[(form)|
|00001e00| 20 22 c0 09 c2 c3 23 11 | c4 09 41 41 21 40 89 1d | "....#.|..AA!@..|
|00001e10| a7 83 67 00 09 47 c6 55 | 83 38 00 09 41 40 a7 83 |..g..G.U|.8..A@..|
|00001e20| 67 00 0d c7 55 84 67 00 | c8 c9 ca 8f 83 67 00 cb |g...U.g.|.....g..|
|00001e30| 09 41 40 0d a5 44 11 82 | 67 00 0d cc 55 83 4a 00 |.A@..D..|g...U.J.|
|00001e40| 09 19 c4 09 21 41 9f 29 | 11 82 67 00 09 41 40 a7 |....!A.)|..g..A@.|
|00001e50| 83 67 00 09 40 09 41 40 | 0d a5 09 41 41 19 c4 09 |.g..@.A@|...AA...|
|00001e60| 21 41 9f 29 42 42 11 c8 | 15 09 41 40 c7 3d 83 79 |!A.)BB..|..A@.=.y|
|00001e70| 00 cd ce 09 41 41 cf 23 | 82 99 00 0d d0 3d 83 98 |....AA.#|.....=..|
|00001e80| 00 d1 c6 09 9b 83 91 00 | 09 19 c4 09 21 41 9f 29 |........|....!A.)|
|00001e90| 82 94 00 09 41 40 44 82 | 99 00 09 29 87 22 20 5b |....A@D.|...)." [|
|00001ea0| 62 79 74 65 2d 6f 70 74 | 69 6d 69 7a 65 2d 64 65 |byte-opt|imize-de|
|00001eb0| 6c 61 79 2d 63 6f 6e 73 | 74 61 6e 74 73 2d 6d 61 |lay-cons|tants-ma|
|00001ec0| 74 68 20 66 6f 72 6d 20 | 32 20 2a 20 72 65 76 65 |th form |2 * reve|
|00001ed0| 72 73 65 20 6c 61 73 74 | 20 33 20 30 20 6e 69 6c |rse last| 3 0 nil|
|00001ee0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 41 40 | (byte-c|ode ".A@|
|00001ef0| 09 a5 87 22 20 5b 66 6f | 72 6d 20 6c 61 73 74 5d |..." [fo|rm last]|
|00001f00| 20 32 29 20 28 28 65 72 | 72 6f 72 29 29 20 70 72 | 2) ((er|ror)) pr|
|00001f10| 6f 67 6e 20 31 20 61 70 | 70 65 6e 64 20 28 70 72 |ogn 1 ap|pend (pr|
|00001f20| 6f 67 6e 29 20 28 30 29 | 20 2d 31 20 2d 5d 20 35 |ogn) (0)| -1 -] 5|
|00001f30| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 62 79 |]).(defa|lias 'by|
|00001f40| 74 65 2d 6f 70 74 69 6d | 69 7a 65 2d 6c 6f 67 6d |te-optim|ize-logm|
|00001f50| 75 6d 62 6c 65 20 23 5b | 28 66 6f 72 6d 29 20 22 |umble #[|(form) "|
|00001f60| c0 09 c2 09 40 23 11 c3 | c4 09 3e 83 27 00 09 40 |....@#..|..>.'..@|
|00001f70| c5 3d 83 1c 00 c6 09 41 | 42 82 5c 22 00 c7 c4 c8 |.=.....A|B.\"....|
|00001f80| 09 21 5c 22 89 11 82 3c | 00 09 a2 c9 3d 83 3b 00 |.!\"...<|....=.;.|
|00001f90| ca 09 3e 83 3b 00 c6 09 | 41 42 82 3c 00 09 21 87 |..>.;...|AB.<..!.|
|00001fa0| 22 20 5b 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 |" [byte-|optimize|
|00001fb0| 2d 64 65 6c 61 79 2d 63 | 6f 6e 73 74 61 6e 74 73 |-delay-c|onstants|
|00001fc0| 2d 6d 61 74 68 20 66 6f | 72 6d 20 31 20 62 79 74 |-math fo|rm 1 byt|
|00001fd0| 65 2d 6f 70 74 69 6d 69 | 7a 65 2d 70 72 65 64 69 |e-optimi|ze-predi|
|00001fe0| 63 61 74 65 20 30 20 6c | 6f 67 61 6e 64 20 70 72 |cate 0 l|ogand pr|
|00001ff0| 6f 67 6e 20 64 65 6c 71 | 20 63 6f 70 79 2d 73 65 |ogn delq| copy-se|
|00002000| 71 75 65 6e 63 65 20 6c | 6f 67 69 6f 72 20 2d 31 |quence l|ogior -1|
|00002010| 5d 20 35 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 5]).(d|efalias |
|00002020| 27 62 79 74 65 2d 6f 70 | 74 69 6d 69 7a 65 2d 62 |'byte-op|timize-b|
|00002030| 69 6e 61 72 79 2d 70 72 | 65 64 69 63 61 74 65 20 |inary-pr|edicate |
|00002040| 23 5b 28 66 6f 72 6d 29 | 20 22 08 41 40 3a 83 10 |#[(form)| ".A@:..|
|00002050| 00 08 41 40 40 c1 3d 82 | 1c 00 08 41 40 39 83 1f |..A@@.=.|...A@9..|
|00002060| 00 08 41 40 c2 3e 83 4d | 00 c3 08 38 3a 83 2f 00 |..A@.>.M|...8:./.|
|00002070| c3 08 38 40 c1 3d 82 3b | 00 c3 08 38 39 83 3e 00 |..8@.=.;|...89.>.|
|00002080| c3 08 38 c2 3e 83 43 00 | c4 c5 c6 8f 87 08 40 c3 |..8.>.C.|......@.|
|00002090| 08 38 08 41 40 45 87 08 | 87 22 20 5b 66 6f 72 6d |.8.A@E..|." [form|
|000020a0| 20 71 75 6f 74 65 20 28 | 6e 69 6c 20 74 29 20 32 | quote (|nil t) 2|
|000020b0| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|000020c0| 22 c0 c1 5c 6e 21 44 87 | 22 20 5b 71 75 6f 74 65 |"..\n!D.|" [quote|
|000020d0| 20 65 76 61 6c 20 66 6f | 72 6d 5d 20 33 29 20 28 | eval fo|rm] 3) (|
|000020e0| 28 65 72 72 6f 72 20 66 | 6f 72 6d 29 29 5d 20 33 |(error f|orm))] 3|
|000020f0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 62 79 |]).(defa|lias 'by|
|00002100| 74 65 2d 6f 70 74 69 6d | 69 7a 65 2d 70 72 65 64 |te-optim|ize-pred|
|00002110| 69 63 61 74 65 20 23 5b | 28 66 6f 72 6d 29 20 22 |icate #[|(form) "|
|00002120| c0 09 41 1a 1b 5c 6e 83 | 2e 00 0b 83 2e 00 5c 6e |..A..\n.|......\n|
|00002130| 40 3a 83 1b 00 5c 6e 40 | 40 c4 3d 82 26 00 5c 6e |@:...\n@|@.=.&.\n|
|00002140| 40 39 3f 86 26 00 5c 6e | 40 c5 3e 13 5c 6e 41 89 |@9?.&.\n|@.>.\nA.|
|00002150| 12 84 09 00 0b 83 39 00 | c6 c7 c8 8f 82 3a 00 09 |......9.|.....:..|
|00002160| 2a 87 22 20 5b 74 20 66 | 6f 72 6d 20 72 65 73 74 |*." [t f|orm rest|
|00002170| 20 6f 6b 20 71 75 6f 74 | 65 20 28 6e 69 6c 20 74 | ok quot|e (nil t|
|00002180| 29 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |) nil (b|yte-code|
|00002190| 20 22 c0 c1 5c 6e 21 44 | 87 22 20 5b 71 75 6f 74 | "..\n!D|." [quot|
|000021a0| 65 20 65 76 61 6c 20 66 | 6f 72 6d 5d 20 33 29 20 |e eval f|orm] 3) |
|000021b0| 28 28 65 72 72 6f 72 20 | 66 6f 72 6d 29 29 5d 20 |((error |form))] |
|000021c0| 34 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 62 |4]).(def|alias 'b|
|000021d0| 79 74 65 2d 6f 70 74 69 | 6d 69 7a 65 2d 69 64 65 |yte-opti|mize-ide|
|000021e0| 6e 74 69 74 79 20 23 5b | 28 66 6f 72 6d 29 20 22 |ntity #[|(form) "|
|000021f0| 08 41 83 0f 00 08 41 41 | 84 0f 00 08 41 40 87 c1 |.A....AA|....A@..|
|00002200| c2 08 41 47 08 41 47 c3 | 55 83 20 00 c4 82 21 00 |..AG.AG.|U. ...!.|
|00002210| c5 23 88 08 87 22 20 5b | 66 6f 72 6d 20 62 79 74 |.#..." [|form byt|
|00002220| 65 2d 63 6f 6d 70 69 6c | 65 2d 77 61 72 6e 20 22 |e-compil|e-warn "|
|00002230| 69 64 65 6e 74 69 74 79 | 20 63 61 6c 6c 65 64 20 |identity| called |
|00002240| 77 69 74 68 20 25 64 20 | 61 72 67 25 73 2c 20 62 |with %d |arg%s, b|
|00002250| 75 74 20 72 65 71 75 69 | 72 65 73 20 31 22 20 31 |ut requi|res 1" 1|
|00002260| 20 22 22 20 22 73 22 5d | 20 35 5d 29 0a 28 62 79 | "" "s"]| 5]).(by|
|00002270| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 c2 c3 23 88 c0 |te-code |"....#..|
|00002280| c4 c2 c5 23 88 c0 c6 c2 | c7 23 88 c0 c8 c2 c9 23 |...#....|.#.....#|
|00002290| 88 c0 ca c2 cb 23 88 c0 | cc c2 cd 23 88 c0 ce c2 |.....#..|...#....|
|000022a0| cd 23 88 c0 cf c2 d0 23 | 88 c0 d1 c2 d0 23 88 c0 |.#.....#|.....#..|
|000022b0| d2 c2 d0 23 88 c0 d3 c2 | d0 23 88 c0 d4 c2 d0 23 |...#....|.#.....#|
|000022c0| 88 c0 d5 c2 d0 23 88 c0 | d6 c2 d7 23 88 c0 d8 c2 |.....#..|...#....|
|000022d0| d7 23 88 c0 d9 c2 d7 23 | 88 c0 da c2 d7 23 88 c0 |.#.....#|.....#..|
|000022e0| db c2 d7 23 88 c0 dc c2 | d7 23 88 c0 dd c2 d7 23 |...#....|.#.....#|
|000022f0| 88 c0 de c2 d7 23 88 c0 | df c2 d7 23 88 c0 e0 c2 |.....#..|...#....|
|00002300| d7 23 88 c0 e1 c2 d7 23 | 88 c0 e2 c2 d7 23 88 c0 |.#.....#|.....#..|
|00002310| e3 c2 d7 23 88 c0 e4 c2 | d7 23 88 c0 e5 c2 d7 23 |...#....|.#.....#|
|00002320| 88 c0 e6 c2 e7 23 88 c0 | e8 c2 e7 23 88 c0 e9 c2 |.....#..|...#....|
|00002330| e7 23 88 c0 ea c2 d7 23 | 88 c0 eb c2 d7 23 88 c0 |.#.....#|.....#..|
|00002340| ec c2 d7 23 88 c0 ed c2 | d7 23 88 c0 ee c2 d7 23 |...#....|.#.....#|
|00002350| 88 c0 ef c2 f0 23 87 22 | 20 5b 70 75 74 20 69 64 |.....#."| [put id|
|00002360| 65 6e 74 69 74 79 20 62 | 79 74 65 2d 6f 70 74 69 |entity b|yte-opti|
|00002370| 6d 69 7a 65 72 20 62 79 | 74 65 2d 6f 70 74 69 6d |mizer by|te-optim|
|00002380| 69 7a 65 2d 69 64 65 6e | 74 69 74 79 20 2b 20 62 |ize-iden|tity + b|
|00002390| 79 74 65 2d 6f 70 74 69 | 6d 69 7a 65 2d 70 6c 75 |yte-opti|mize-plu|
|000023a0| 73 20 2a 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |s * byte|-optimiz|
|000023b0| 65 2d 6d 75 6c 74 69 70 | 6c 79 20 2d 20 62 79 74 |e-multip|ly - byt|
|000023c0| 65 2d 6f 70 74 69 6d 69 | 7a 65 2d 6d 69 6e 75 73 |e-optimi|ze-minus|
|000023d0| 20 2f 20 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 | / byte-|optimize|
|000023e0| 2d 64 69 76 69 64 65 20 | 6d 61 78 20 62 79 74 65 |-divide |max byte|
|000023f0| 2d 6f 70 74 69 6d 69 7a | 65 2d 61 73 73 6f 63 69 |-optimiz|e-associ|
|00002400| 61 74 69 76 65 2d 6d 61 | 74 68 20 6d 69 6e 20 3d |ative-ma|th min =|
|00002410| 20 62 79 74 65 2d 6f 70 | 74 69 6d 69 7a 65 2d 62 | byte-op|timize-b|
|00002420| 69 6e 61 72 79 2d 70 72 | 65 64 69 63 61 74 65 20 |inary-pr|edicate |
|00002430| 65 71 20 65 71 6c 20 65 | 71 75 61 6c 20 73 74 72 |eq eql e|qual str|
|00002440| 69 6e 67 3d 20 73 74 72 | 69 6e 67 2d 65 71 75 61 |ing= str|ing-equa|
|00002450| 6c 20 3c 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |l < byte|-optimiz|
|00002460| 65 2d 70 72 65 64 69 63 | 61 74 65 20 3e 20 3c 3d |e-predic|ate > <=|
|00002470| 20 3e 3d 20 31 2b 20 31 | 2d 20 6e 6f 74 20 6e 75 | >= 1+ 1|- not nu|
|00002480| 6c 6c 20 6d 65 6d 71 20 | 63 6f 6e 73 70 20 6c 69 |ll memq |consp li|
|00002490| 73 74 70 20 73 79 6d 62 | 6f 6c 70 20 73 74 72 69 |stp symb|olp stri|
|000024a0| 6e 67 70 20 73 74 72 69 | 6e 67 3c 20 73 74 72 69 |ngp stri|ng< stri|
|000024b0| 6e 67 2d 6c 65 73 73 70 | 20 6c 6f 67 61 6e 64 20 |ng-lessp| logand |
|000024c0| 62 79 74 65 2d 6f 70 74 | 69 6d 69 7a 65 2d 6c 6f |byte-opt|imize-lo|
|000024d0| 67 6d 75 6d 62 6c 65 20 | 6c 6f 67 69 6f 72 20 6c |gmumble |logior l|
|000024e0| 6f 67 78 6f 72 20 6c 6f | 67 6e 6f 74 20 63 61 72 |ogxor lo|gnot car|
|000024f0| 20 63 64 72 20 63 61 72 | 2d 73 61 66 65 20 63 64 | cdr car|-safe cd|
|00002500| 72 2d 73 61 66 65 20 71 | 75 6f 74 65 20 62 79 74 |r-safe q|uote byt|
|00002510| 65 2d 6f 70 74 69 6d 69 | 7a 65 2d 71 75 6f 74 65 |e-optimi|ze-quote|
|00002520| 5d 20 34 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 4).(de|falias '|
|00002530| 62 79 74 65 2d 6f 70 74 | 69 6d 69 7a 65 2d 71 75 |byte-opt|imize-qu|
|00002540| 6f 74 65 20 23 5b 28 66 | 6f 72 6d 29 20 22 08 41 |ote #[(f|orm) ".A|
|00002550| 40 3a 84 16 00 08 41 40 | 39 83 18 00 08 41 40 c1 |@:....A@|9....A@.|
|00002560| 3e 84 18 00 08 87 08 41 | 40 87 22 20 5b 66 6f 72 |>......A|@." [for|
|00002570| 6d 20 28 6e 69 6c 20 74 | 29 5d 20 32 5d 29 0a 28 |m (nil t|)] 2]).(|
|00002580| 64 65 66 61 6c 69 61 73 | 20 27 62 79 74 65 2d 6f |defalias| 'byte-o|
|00002590| 70 74 69 6d 69 7a 65 2d | 7a 65 72 6f 70 20 23 5b |ptimize-|zerop #[|
|000025a0| 28 66 6f 72 6d 29 20 22 | 08 41 40 a7 83 0b 00 c1 |(form) "|.A@.....|
|000025b0| 08 21 87 5c 6e 83 16 00 | c3 08 41 40 c4 45 87 08 |.!.\n...|..A@.E..|
|000025c0| 87 22 20 5b 66 6f 72 6d | 20 65 76 61 6c 20 62 79 |." [form| eval by|
|000025d0| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 64 65 6c 65 74 |te-compi|le-delet|
|000025e0| 65 2d 65 72 72 6f 72 73 | 20 3d 20 30 5d 20 33 5d |e-errors| = 0] 3]|
|000025f0| 29 0a 28 70 75 74 20 28 | 71 75 6f 74 65 20 7a 65 |).(put (|quote ze|
|00002600| 72 6f 70 29 20 28 71 75 | 6f 74 65 20 62 79 74 65 |rop) (qu|ote byte|
|00002610| 2d 6f 70 74 69 6d 69 7a | 65 72 29 20 28 71 75 6f |-optimiz|er) (quo|
|00002620| 74 65 20 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 |te byte-|optimize|
|00002630| 2d 7a 65 72 6f 70 29 29 | 0a 28 64 65 66 61 6c 69 |-zerop))|.(defali|
|00002640| 61 73 20 27 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |as 'byte|-optimiz|
|00002650| 65 2d 61 6e 64 20 23 5b | 28 66 6f 72 6d 29 20 22 |e-and #[|(form) "|
|00002660| 08 41 3f 86 35 00 c1 08 | 3e 83 28 00 c2 c3 c4 08 |.A?.5...|>.(.....|
|00002670| 21 89 10 89 41 40 83 20 | 00 08 41 89 10 82 14 00 |!...A@. |..A.....|
|00002680| 08 c1 a1 88 21 c1 45 87 | 08 41 41 84 32 00 08 41 |....!.E.|.AA.2..A|
|00002690| 40 87 c5 08 21 87 22 20 | 5b 66 6f 72 6d 20 6e 69 |@...!." |[form ni|
|000026a0| 6c 20 70 72 6f 67 6e 20 | 62 79 74 65 2d 6f 70 74 |l progn |byte-opt|
|000026b0| 69 6d 69 7a 65 2d 61 6e | 64 20 63 6f 70 79 2d 73 |imize-an|d copy-s|
|000026c0| 65 71 75 65 6e 63 65 20 | 62 79 74 65 2d 6f 70 74 |equence |byte-opt|
|000026d0| 69 6d 69 7a 65 2d 70 72 | 65 64 69 63 61 74 65 5d |imize-pr|edicate]|
|000026e0| 20 36 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 6]).(de|falias '|
|000026f0| 62 79 74 65 2d 6f 70 74 | 69 6d 69 7a 65 2d 6f 72 |byte-opt|imize-or|
|00002700| 20 23 5b 28 66 6f 72 6d | 29 20 22 c0 09 3e 83 0d | #[(form|) "..>..|
|00002710| 00 c2 c0 c3 09 21 5c 22 | 11 09 1c 5c 66 41 89 14 |.....!\"|...\fA..|
|00002720| 41 83 41 00 5c 66 40 3a | 83 25 00 5c 66 40 40 c5 |A.A.\f@:|.%.\f@@.|
|00002730| 3d 82 2f 00 5c 66 40 39 | 83 32 00 5c 66 40 c6 3d |=./.\f@9|.2.\f@.=|
|00002740| 83 0f 00 c3 09 21 11 5c | 66 40 09 3e c0 a1 89 14 |.....!.\|f@.>....|
|00002750| 82 10 00 09 41 41 83 4d | 00 c7 09 21 82 50 00 09 |....AA.M|...!.P..|
|00002760| 41 40 29 87 22 20 5b 6e | 69 6c 20 66 6f 72 6d 20 |A@)." [n|il form |
|00002770| 64 65 6c 71 20 63 6f 70 | 79 2d 73 65 71 75 65 6e |delq cop|y-sequen|
|00002780| 63 65 20 72 65 73 74 20 | 71 75 6f 74 65 20 74 20 |ce rest |quote t |
|00002790| 62 79 74 65 2d 6f 70 74 | 69 6d 69 7a 65 2d 70 72 |byte-opt|imize-pr|
|000027a0| 65 64 69 63 61 74 65 5d | 20 35 5d 29 0a 28 64 65 |edicate]| 5]).(de|
|000027b0| 66 61 6c 69 61 73 20 27 | 62 79 74 65 2d 6f 70 74 |falias '|byte-opt|
|000027c0| 69 6d 69 7a 65 2d 63 6f | 6e 64 20 23 5b 28 66 6f |imize-co|nd #[(fo|
|000027d0| 72 6d 29 20 22 c0 19 c0 | 5c 6e 41 9e 89 11 83 15 |rm) "...|\nA.....|
|000027e0| 00 c3 09 c4 5c 6e 21 5c | 22 12 82 02 00 c0 5c 6e |....\n!\|".....\n|
|000027f0| 41 3e 83 23 00 c3 c0 c4 | 5c 6e 21 5c 22 12 5c 6e |A>.#....|\n!\".\n|
|00002800| 11 09 41 89 11 83 8b 00 | 09 40 a2 3a 83 3c 00 09 |..A.....|.@.:.<..|
|00002810| 40 a2 40 c5 3d 82 48 00 | 09 40 a2 39 83 4b 00 09 |@.@.=.H.|.@.9.K..|
|00002820| 40 a2 c6 3d 83 25 00 09 | 5c 6e 41 3d 83 75 00 09 |@..=.%..|\nA=.u..|
|00002830| 40 41 83 6e 00 09 40 41 | 41 83 67 00 c7 09 40 41 |@A.n..@A|A.g...@A|
|00002840| 42 82 71 00 09 40 41 40 | 82 71 00 09 40 40 12 82 |B.q..@A@|.q..@@..|
|00002850| 85 00 09 41 83 85 00 c4 | 5c 6e 21 12 09 40 5c 6e |...A....|\n!..@\n|
|00002860| 3e c0 a1 88 c0 89 11 82 | 26 00 29 5c 6e a2 c8 3d |>.......|&.)\n..=|
|00002870| 83 b8 00 5c 6e 41 89 1e | 09 40 3a 83 b5 00 0e 09 |...\nA..|.@:.....|
|00002880| 40 41 84 b5 00 ca 0e 09 | 40 40 cb 5c 6e 40 5c 6e |@A......|@@.\n@\n|
|00002890| 41 41 42 21 45 82 b6 00 | 5c 6e 29 87 5c 6e 87 22 |AAB!E...|\n).\n."|
|000028a0| 20 5b 6e 69 6c 20 72 65 | 73 74 20 66 6f 72 6d 20 | [nil re|st form |
|000028b0| 64 65 6c 71 20 63 6f 70 | 79 2d 73 65 71 75 65 6e |delq cop|y-sequen|
|000028c0| 63 65 20 71 75 6f 74 65 | 20 74 20 70 72 6f 67 6e |ce quote| t progn|
|000028d0| 20 63 6f 6e 64 20 63 6c | 61 75 73 65 73 20 6f 72 | cond cl|auses or|
|000028e0| 20 62 79 74 65 2d 6f 70 | 74 69 6d 69 7a 65 2d 63 | byte-op|timize-c|
|000028f0| 6f 6e 64 5d 20 36 5d 29 | 0a 28 64 65 66 61 6c 69 |ond] 6])|.(defali|
|00002900| 61 73 20 27 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |as 'byte|-optimiz|
|00002910| 65 2d 69 66 20 23 5b 28 | 66 6f 72 6d 29 20 22 08 |e-if #[(|form) ".|
|00002920| 41 40 89 19 3a 83 10 00 | 09 40 c2 3d 82 18 00 09 |A@..:...|.@.=....|
|00002930| 39 83 1b 00 09 c3 3d 83 | 21 00 c4 08 38 82 96 00 |9.....=.|!...8...|
|00002940| 09 84 39 00 c5 08 9b 83 | 33 00 c6 c7 08 9b 42 82 |..9.....|3.....B.|
|00002950| 96 00 c7 08 38 82 96 00 | c4 08 38 83 54 00 c7 08 |....8...|..8.T...|
|00002960| 9b c8 9a 83 50 00 c9 09 | c4 08 38 45 82 96 00 08 |....P...|..8E....|
|00002970| 82 96 00 c7 08 38 84 60 | 00 c5 08 9b 83 92 00 c9 |.....8.`|........|
|00002980| 09 3a 83 7a 00 09 40 ca | 3e 83 7a 00 09 47 c4 55 |.:.z..@.|>.z..G.U|
|00002990| 83 7a 00 09 41 40 82 7d | 00 cb 09 44 c5 08 9b 83 |.z..A@.}|...D....|
|000029a0| 8b 00 c6 c7 08 9b 42 82 | 8e 00 c7 08 38 45 82 96 |......B.|....8E..|
|000029b0| 00 c6 09 cc 45 29 87 22 | 20 5b 66 6f 72 6d 20 63 |....E)."| [form c|
|000029c0| 6c 61 75 73 65 20 71 75 | 6f 74 65 20 74 20 32 20 |lause qu|ote t 2 |
|000029d0| 34 20 70 72 6f 67 6e 20 | 33 20 28 6e 69 6c 29 20 |4 progn |3 (nil) |
|000029e0| 69 66 20 28 6e 6f 74 20 | 6e 75 6c 6c 29 20 6e 6f |if (not |null) no|
|000029f0| 74 20 6e 69 6c 5d 20 36 | 5d 29 0a 28 64 65 66 61 |t nil] 6|]).(defa|
|00002a00| 6c 69 61 73 20 27 62 79 | 74 65 2d 6f 70 74 69 6d |lias 'by|te-optim|
|00002a10| 69 7a 65 2d 77 68 69 6c | 65 20 23 5b 28 66 6f 72 |ize-whil|e #[(for|
|00002a20| 6d 29 20 22 08 41 40 85 | 07 00 08 87 22 20 5b 66 |m) ".A@.|...." [f|
|00002a30| 6f 72 6d 5d 20 31 5d 29 | 0a 28 62 79 74 65 2d 63 |orm] 1])|.(byte-c|
|00002a40| 6f 64 65 20 22 c0 c1 c2 | c3 23 88 c0 c4 c2 c5 23 |ode "...|.#.....#|
|00002a50| 88 c0 c6 c2 c7 23 88 c0 | c8 c2 c9 23 88 c0 ca c2 |.....#..|...#....|
|00002a60| cb 23 88 c0 cc c2 cd 23 | 88 c0 ce c2 cd 23 88 c0 |.#.....#|.....#..|
|00002a70| cf c2 cd 23 87 22 20 5b | 70 75 74 20 61 6e 64 20 |...#." [|put and |
|00002a80| 62 79 74 65 2d 6f 70 74 | 69 6d 69 7a 65 72 20 62 |byte-opt|imizer b|
|00002a90| 79 74 65 2d 6f 70 74 69 | 6d 69 7a 65 2d 61 6e 64 |yte-opti|mize-and|
|00002aa0| 20 6f 72 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a | or byte|-optimiz|
|00002ab0| 65 2d 6f 72 20 63 6f 6e | 64 20 62 79 74 65 2d 6f |e-or con|d byte-o|
|00002ac0| 70 74 69 6d 69 7a 65 2d | 63 6f 6e 64 20 69 66 20 |ptimize-|cond if |
|00002ad0| 62 79 74 65 2d 6f 70 74 | 69 6d 69 7a 65 2d 69 66 |byte-opt|imize-if|
|00002ae0| 20 77 68 69 6c 65 20 62 | 79 74 65 2d 6f 70 74 69 | while b|yte-opti|
|00002af0| 6d 69 7a 65 2d 77 68 69 | 6c 65 20 2f 3d 20 62 79 |mize-whi|le /= by|
|00002b00| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 6e 65 67 61 74 |te-compi|le-negat|
|00002b10| 69 6f 6e 2d 6f 70 74 69 | 6d 69 7a 65 72 20 61 74 |ion-opti|mizer at|
|00002b20| 6f 6d 20 6e 6c 69 73 74 | 70 5d 20 34 29 0a 28 64 |om nlist|p] 4).(d|
|00002b30| 65 66 61 6c 69 61 73 20 | 27 62 79 74 65 2d 6f 70 |efalias |'byte-op|
|00002b40| 74 69 6d 69 7a 65 2d 66 | 75 6e 63 61 6c 6c 20 23 |timize-f|uncall #|
|00002b50| 5b 28 66 6f 72 6d 29 20 | 22 08 41 40 89 19 a2 c2 |[(form) |".A@....|
|00002b60| 3e 83 15 00 09 41 40 08 | 41 41 42 82 16 00 08 29 |>....A@.|AAB....)|
|00002b70| 87 22 20 5b 66 6f 72 6d | 20 66 6e 20 28 71 75 6f |." [form| fn (quo|
|00002b80| 74 65 20 66 75 6e 63 74 | 69 6f 6e 29 5d 20 33 5d |te funct|ion)] 3]|
|00002b90| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 62 79 74 |).(defal|ias 'byt|
|00002ba0| 65 2d 6f 70 74 69 6d 69 | 7a 65 2d 61 70 70 6c 79 |e-optimi|ze-apply|
|00002bb0| 20 23 5b 28 66 6f 72 6d | 29 20 22 08 41 40 08 47 | #[(form|) ".A@.G|
|00002bc0| 53 08 38 19 1a 09 83 15 | 00 09 a2 c3 3d 83 3f 00 |S.8.....|....=.?.|
|00002bd0| 09 41 40 3c 83 34 00 c4 | 08 41 41 21 41 9f 1d c6 |.A@<.4..|.AA!A...|
|00002be0| 5c 6e 44 0d a4 c7 c8 09 | 41 40 5c 22 a4 29 82 3c |\nD.....|A@\".).<|
|00002bf0| 00 c9 ca cb 09 21 5c 22 | 88 cc 86 40 00 08 2a 87 |.....!\"|...@..*.|
|00002c00| 22 20 5b 66 6f 72 6d 20 | 6c 61 73 74 20 66 6e 20 |" [form |last fn |
|00002c10| 71 75 6f 74 65 20 72 65 | 76 65 72 73 65 20 62 75 |quote re|verse bu|
|00002c20| 74 6c 61 73 74 20 66 75 | 6e 63 61 6c 6c 20 6d 61 |tlast fu|ncall ma|
|00002c30| 70 63 61 72 20 23 5b 28 | 78 29 20 22 c0 09 44 87 |pcar #[(|x) "..D.|
|00002c40| 22 20 5b 71 75 6f 74 65 | 20 78 5d 20 32 5d 20 62 |" [quote| x] 2] b|
|00002c50| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 77 61 72 6e |yte-comp|ile-warn|
|00002c60| 20 22 6c 61 73 74 20 61 | 72 67 20 74 6f 20 61 70 | "last a|rg to ap|
|00002c70| 70 6c 79 20 63 61 6e 27 | 74 20 62 65 20 61 20 6c |ply can'|t be a l|
|00002c80| 69 74 65 72 61 6c 20 61 | 74 6f 6d 3a 20 25 73 22 |iteral a|tom: %s"|
|00002c90| 20 70 72 69 6e 31 2d 74 | 6f 2d 73 74 72 69 6e 67 | prin1-t|o-string|
|00002ca0| 20 6e 69 6c 5d 20 34 5d | 29 0a 28 62 79 74 65 2d | nil] 4]|).(byte-|
|00002cb0| 63 6f 64 65 20 22 c0 c1 | c2 c3 23 88 c0 c4 c2 c5 |code "..|..#.....|
|00002cc0| 23 88 c0 c6 c2 c7 23 88 | c0 c8 c2 c7 23 87 22 20 |#.....#.|....#." |
|00002cd0| 5b 70 75 74 20 66 75 6e | 63 61 6c 6c 20 62 79 74 |[put fun|call byt|
|00002ce0| 65 2d 6f 70 74 69 6d 69 | 7a 65 72 20 62 79 74 65 |e-optimi|zer byte|
|00002cf0| 2d 6f 70 74 69 6d 69 7a | 65 2d 66 75 6e 63 61 6c |-optimiz|e-funcal|
|00002d00| 6c 20 61 70 70 6c 79 20 | 62 79 74 65 2d 6f 70 74 |l apply |byte-opt|
|00002d10| 69 6d 69 7a 65 2d 61 70 | 70 6c 79 20 6c 65 74 20 |imize-ap|ply let |
|00002d20| 62 79 74 65 2d 6f 70 74 | 69 6d 69 7a 65 2d 6c 65 |byte-opt|imize-le|
|00002d30| 74 58 20 6c 65 74 2a 5d | 20 34 29 0a 28 64 65 66 |tX let*]| 4).(def|
|00002d40| 61 6c 69 61 73 20 27 62 | 79 74 65 2d 6f 70 74 69 |alias 'b|yte-opti|
|00002d50| 6d 69 7a 65 2d 6c 65 74 | 58 20 23 5b 28 66 6f 72 |mize-let|X #[(for|
|00002d60| 6d 29 20 22 08 41 40 84 | 5c 66 00 c1 08 41 41 42 |m) ".A@.|\f...AAB|
|00002d70| 87 c2 08 38 84 18 00 c3 | 08 9b 83 1a 00 08 87 08 |...8....|........|
|00002d80| 40 c4 3d 83 2f 00 c5 c6 | c7 c8 c7 c9 08 41 40 5c |@.=./...|.....A@\|
|00002d90| 22 5c 22 ca 23 87 cb 08 | 41 40 21 1e 5c 66 cd cb |"\".#...|A@!.\f..|
|00002da0| 0e 5c 66 41 21 0e 5c 66 | 40 41 40 ce 46 29 87 22 |.\fA!.\f|@A@.F)."|
|00002db0| 20 5b 66 6f 72 6d 20 70 | 72 6f 67 6e 20 32 20 33 | [form p|rogn 2 3|
|00002dc0| 20 6c 65 74 20 61 70 70 | 65 6e 64 20 28 70 72 6f | let app|end (pro|
|00002dd0| 67 6e 29 20 6d 61 70 63 | 61 72 20 63 61 72 2d 73 |gn) mapc|ar car-s|
|00002de0| 61 66 65 20 63 64 72 2d | 73 61 66 65 20 28 6e 69 |afe cdr-|safe (ni|
|00002df0| 6c 29 20 72 65 76 65 72 | 73 65 20 62 69 6e 64 73 |l) rever|se binds|
|00002e00| 20 6c 65 74 2a 20 6e 69 | 6c 5d 20 37 5d 29 0a 28 | let* ni|l] 7]).(|
|00002e10| 70 75 74 20 28 71 75 6f | 74 65 20 6e 74 68 29 20 |put (quo|te nth) |
|00002e20| 28 71 75 6f 74 65 20 62 | 79 74 65 2d 6f 70 74 69 |(quote b|yte-opti|
|00002e30| 6d 69 7a 65 72 29 20 28 | 71 75 6f 74 65 20 62 79 |mizer) (|quote by|
|00002e40| 74 65 2d 6f 70 74 69 6d | 69 7a 65 2d 6e 74 68 29 |te-optim|ize-nth)|
|00002e50| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 62 79 74 |).(defal|ias 'byt|
|00002e60| 65 2d 6f 70 74 69 6d 69 | 7a 65 2d 6e 74 68 20 23 |e-optimi|ze-nth #|
|00002e70| 5b 28 66 6f 72 6d 29 20 | 22 c0 09 21 c2 55 83 26 |[(form) |"..!.U.&|
|00002e80| 00 09 41 40 c3 3e 83 26 | 00 c4 09 41 40 c5 55 83 |..A@.>.&|...A@.U.|
|00002e90| 1f 00 c6 09 38 82 24 00 | c7 c6 09 38 44 44 87 c8 |....8.$.|...8DD..|
|00002ea0| 09 21 87 22 20 5b 73 61 | 66 65 2d 6c 65 6e 67 74 |.!." [sa|fe-lengt|
|00002eb0| 68 20 66 6f 72 6d 20 33 | 20 28 30 20 31 29 20 63 |h form 3| (0 1) c|
|00002ec0| 61 72 20 30 20 32 20 63 | 64 72 20 62 79 74 65 2d |ar 0 2 c|dr byte-|
|00002ed0| 6f 70 74 69 6d 69 7a 65 | 2d 70 72 65 64 69 63 61 |optimize|-predica|
|00002ee0| 74 65 5d 20 34 5d 29 0a | 28 70 75 74 20 28 71 75 |te] 4]).|(put (qu|
|00002ef0| 6f 74 65 20 6e 74 68 63 | 64 72 29 20 28 71 75 6f |ote nthc|dr) (quo|
|00002f00| 74 65 20 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 |te byte-|optimize|
|00002f10| 72 29 20 28 71 75 6f 74 | 65 20 62 79 74 65 2d 6f |r) (quot|e byte-o|
|00002f20| 70 74 69 6d 69 7a 65 2d | 6e 74 68 63 64 72 29 29 |ptimize-|nthcdr))|
|00002f30| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 62 79 74 65 |.(defali|as 'byte|
|00002f40| 2d 6f 70 74 69 6d 69 7a | 65 2d 6e 74 68 63 64 72 |-optimiz|e-nthcdr|
|00002f50| 20 23 5b 28 66 6f 72 6d | 29 20 22 c0 09 21 c2 55 | #[(form|) "..!.U|
|00002f60| 83 14 00 09 41 40 c3 3e | 84 14 00 c4 09 21 87 09 |....A@.>|.....!..|
|00002f70| 41 40 1d c6 09 38 11 0d | 53 89 15 c7 59 83 2c 00 |A@...8..|S...Y.,.|
|00002f80| c8 09 44 11 82 1c 00 09 | 29 87 22 20 5b 73 61 66 |..D.....|)." [saf|
|00002f90| 65 2d 6c 65 6e 67 74 68 | 20 66 6f 72 6d 20 33 20 |e-length| form 3 |
|00002fa0| 28 30 20 31 20 32 29 20 | 62 79 74 65 2d 6f 70 74 |(0 1 2) |byte-opt|
|00002fb0| 69 6d 69 7a 65 2d 70 72 | 65 64 69 63 61 74 65 20 |imize-pr|edicate |
|00002fc0| 63 6f 75 6e 74 20 32 20 | 30 20 63 64 72 5d 20 32 |count 2 |0 cdr] 2|
|00002fd0| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00002fe0| c1 1a 89 1b 83 16 00 c4 | 0b 40 c5 c6 23 88 0b 41 |........|.@..#..A|
|00002ff0| 89 13 84 08 00 5c 6e 83 | 28 00 c4 5c 6e 40 c5 c7 |.....\n.|(..\n@..|
|00003000| 23 88 5c 6e 41 89 12 84 | 1a 00 2a c4 87 22 20 5b |#.\nA...|..*.." [|
|00003010| 28 25 20 2a 20 2b 20 2d | 20 2f 20 2f 3d 20 31 2b |(% * + -| / /= 1+|
|00003020| 20 31 2d 20 3c 20 3c 3d | 20 3d 20 3e 20 3e 3d 20 | 1- < <=| = > >= |
|00003030| 61 62 73 20 61 63 6f 73 | 20 61 70 70 65 6e 64 20 |abs acos| append |
|00003040| 61 72 65 66 20 61 73 68 | 20 61 73 69 6e 20 61 74 |aref ash| asin at|
|00003050| 61 6e 20 61 73 73 6f 63 | 20 61 73 73 71 20 62 6f |an assoc| assq bo|
|00003060| 75 6e 64 70 20 62 75 66 | 66 65 72 2d 66 69 6c 65 |undp buf|fer-file|
|00003070| 2d 6e 61 6d 65 20 62 75 | 66 66 65 72 2d 6c 6f 63 |-name bu|ffer-loc|
|00003080| 61 6c 2d 76 61 72 69 61 | 62 6c 65 73 20 62 75 66 |al-varia|bles buf|
|00003090| 66 65 72 2d 6d 6f 64 69 | 66 69 65 64 2d 70 20 62 |fer-modi|fied-p b|
|000030a0| 75 66 66 65 72 2d 73 75 | 62 73 74 72 69 6e 67 20 |uffer-su|bstring |
|000030b0| 63 61 70 69 74 61 6c 69 | 7a 65 20 63 61 72 2d 6c |capitali|ze car-l|
|000030c0| 65 73 73 2d 74 68 61 6e | 2d 63 61 72 20 63 61 72 |ess-than|-car car|
|000030d0| 20 63 64 72 20 63 65 69 | 6c 69 6e 67 20 63 6f 6e | cdr cei|ling con|
|000030e0| 63 61 74 20 63 6f 6f 72 | 64 69 6e 61 74 65 73 2d |cat coor|dinates-|
|000030f0| 69 6e 2d 77 69 6e 64 6f | 77 2d 70 20 63 6f 70 79 |in-windo|w-p copy|
|00003100| 2d 6d 61 72 6b 65 72 20 | 63 6f 73 20 63 6f 75 6e |-marker |cos coun|
|00003110| 74 2d 6c 69 6e 65 73 20 | 64 65 66 61 75 6c 74 2d |t-lines |default-|
|00003120| 62 6f 75 6e 64 70 20 64 | 65 66 61 75 6c 74 2d 76 |boundp d|efault-v|
|00003130| 61 6c 75 65 20 64 6f 63 | 75 6d 65 6e 74 61 74 69 |alue doc|umentati|
|00003140| 6f 6e 20 64 6f 77 6e 63 | 61 73 65 20 65 6c 74 20 |on downc|ase elt |
|00003150| 65 78 70 20 65 78 70 74 | 20 66 62 6f 75 6e 64 70 |exp expt| fboundp|
|00003160| 20 66 65 61 74 75 72 65 | 70 20 66 69 6c 65 2d 64 | feature|p file-d|
|00003170| 69 72 65 63 74 6f 72 79 | 2d 70 20 66 69 6c 65 2d |irectory|-p file-|
|00003180| 65 78 69 73 74 73 2d 70 | 20 66 69 6c 65 2d 6c 6f |exists-p| file-lo|
|00003190| 63 6b 65 64 2d 70 20 66 | 69 6c 65 2d 6e 61 6d 65 |cked-p f|ile-name|
|000031a0| 2d 61 62 73 6f 6c 75 74 | 65 2d 70 20 66 69 6c 65 |-absolut|e-p file|
|000031b0| 2d 6e 65 77 65 72 2d 74 | 68 61 6e 2d 66 69 6c 65 |-newer-t|han-file|
|000031c0| 2d 70 20 66 69 6c 65 2d | 72 65 61 64 61 62 6c 65 |-p file-|readable|
|000031d0| 2d 70 20 66 69 6c 65 2d | 73 79 6d 6c 69 6e 6b 2d |-p file-|symlink-|
|000031e0| 70 20 66 69 6c 65 2d 77 | 72 69 74 61 62 6c 65 2d |p file-w|ritable-|
|000031f0| 70 20 66 6c 6f 61 74 20 | 66 6c 6f 6f 72 20 66 6f |p float |floor fo|
|00003200| 72 6d 61 74 20 67 65 74 | 20 67 65 74 2d 62 75 66 |rmat get| get-buf|
|00003210| 66 65 72 20 67 65 74 2d | 62 75 66 66 65 72 2d 77 |fer get-|buffer-w|
|00003220| 69 6e 64 6f 77 20 67 65 | 74 65 6e 76 20 67 65 74 |indow ge|tenv get|
|00003230| 2d 66 69 6c 65 2d 62 75 | 66 66 65 72 20 69 6e 74 |-file-bu|ffer int|
|00003240| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 6c 65 6e 67 74 |-to-stri|ng lengt|
|00003250| 68 20 6c 6f 67 20 6c 6f | 67 31 30 20 6c 6f 67 61 |h log lo|g10 loga|
|00003260| 6e 64 20 6c 6f 67 62 20 | 6c 6f 67 69 6f 72 20 6c |nd logb |logior l|
|00003270| 6f 67 6e 6f 74 20 6c 6f | 67 78 6f 72 20 6c 73 68 |ognot lo|gxor lsh|
|00003280| 20 6d 61 72 6b 65 72 2d | 62 75 66 66 65 72 20 6d | marker-|buffer m|
|00003290| 61 78 20 6d 65 6d 62 65 | 72 20 6d 65 6d 71 20 6d |ax membe|r memq m|
|000032a0| 69 6e 20 6d 6f 64 20 6e | 65 78 74 2d 77 69 6e 64 |in mod n|ext-wind|
|000032b0| 6f 77 20 6e 74 68 20 6e | 74 68 63 64 72 20 6e 75 |ow nth n|thcdr nu|
|000032c0| 6d 62 65 72 2d 74 6f 2d | 73 74 72 69 6e 67 20 70 |mber-to-|string p|
|000032d0| 61 72 73 65 2d 63 6f 6c | 6f 6e 2d 70 61 74 68 20 |arse-col|on-path |
|000032e0| 70 72 65 76 69 6f 75 73 | 2d 77 69 6e 64 6f 77 20 |previous|-window |
|000032f0| 72 61 64 69 61 6e 73 2d | 74 6f 2d 64 65 67 72 65 |radians-|to-degre|
|00003300| 65 73 20 72 61 73 73 71 | 20 72 65 67 65 78 70 2d |es rassq| regexp-|
|00003310| 71 75 6f 74 65 20 72 65 | 76 65 72 73 65 20 72 6f |quote re|verse ro|
|00003320| 75 6e 64 20 73 69 6e 20 | 73 71 72 74 20 73 74 72 |und sin |sqrt str|
|00003330| 69 6e 67 3c 20 73 74 72 | 69 6e 67 3d 20 73 74 72 |ing< str|ing= str|
|00003340| 69 6e 67 2d 65 71 75 61 | 6c 20 73 74 72 69 6e 67 |ing-equa|l string|
|00003350| 2d 6c 65 73 73 70 20 73 | 74 72 69 6e 67 2d 74 6f |-lessp s|tring-to|
|00003360| 2d 63 68 61 72 20 73 74 | 72 69 6e 67 2d 74 6f 2d |-char st|ring-to-|
|00003370| 69 6e 74 20 73 74 72 69 | 6e 67 2d 74 6f 2d 6e 75 |int stri|ng-to-nu|
|00003380| 6d 62 65 72 20 73 75 62 | 73 74 72 69 6e 67 20 73 |mber sub|string s|
|00003390| 79 6d 62 6f 6c 2d 70 6c | 69 73 74 20 74 61 6e 20 |ymbol-pl|ist tan |
|000033a0| 75 70 63 61 73 65 20 75 | 73 65 72 2d 76 61 72 69 |upcase u|ser-vari|
|000033b0| 61 62 6c 65 2d 70 20 76 | 63 6f 6e 63 61 74 20 77 |able-p v|concat w|
|000033c0| 69 6e 64 6f 77 2d 62 75 | 66 66 65 72 20 77 69 6e |indow-bu|ffer win|
|000033d0| 64 6f 77 2d 64 65 64 69 | 63 61 74 65 64 2d 70 20 |dow-dedi|cated-p |
|000033e0| 77 69 6e 64 6f 77 2d 65 | 64 67 65 73 20 77 69 6e |window-e|dges win|
|000033f0| 64 6f 77 2d 68 65 69 67 | 68 74 20 77 69 6e 64 6f |dow-heig|ht windo|
|00003400| 77 2d 68 73 63 72 6f 6c | 6c 20 77 69 6e 64 6f 77 |w-hscrol|l window|
|00003410| 2d 6d 69 6e 69 62 75 66 | 66 65 72 2d 70 20 77 69 |-minibuf|fer-p wi|
|00003420| 6e 64 6f 77 2d 77 69 64 | 74 68 20 7a 65 72 6f 70 |ndow-wid|th zerop|
|00003430| 29 20 28 61 72 72 61 79 | 70 20 61 74 6f 6d 20 62 |) (array|p atom b|
|00003440| 6f 62 70 20 62 6f 6c 70 | 20 62 75 66 66 65 72 2d |obp bolp| buffer-|
|00003450| 65 6e 64 20 62 75 66 66 | 65 72 2d 6c 69 73 74 20 |end buff|er-list |
|00003460| 62 75 66 66 65 72 2d 73 | 69 7a 65 20 62 75 66 66 |buffer-s|ize buff|
|00003470| 65 72 2d 73 74 72 69 6e | 67 20 62 75 66 66 65 72 |er-strin|g buffer|
|00003480| 70 20 63 61 72 2d 73 61 | 66 65 20 63 61 73 65 2d |p car-sa|fe case-|
|00003490| 74 61 62 6c 65 2d 70 20 | 63 64 72 2d 73 61 66 65 |table-p |cdr-safe|
|000034a0| 20 63 68 61 72 2d 6f 72 | 2d 73 74 72 69 6e 67 2d | char-or|-string-|
|000034b0| 70 20 63 6f 6d 6d 61 6e | 64 70 20 63 6f 6e 73 20 |p comman|dp cons |
|000034c0| 63 6f 6e 73 70 20 63 75 | 72 72 65 6e 74 2d 62 75 |consp cu|rrent-bu|
|000034d0| 66 66 65 72 20 64 6f 74 | 20 64 6f 74 2d 6d 61 72 |ffer dot| dot-mar|
|000034e0| 6b 65 72 20 65 6f 62 70 | 20 65 6f 6c 70 20 65 71 |ker eobp| eolp eq|
|000034f0| 20 65 71 6c 20 65 71 75 | 61 6c 20 65 76 65 6e 74 | eql equ|al event|
|00003500| 70 20 66 6c 6f 61 74 70 | 20 66 72 61 6d 65 70 20 |p floatp| framep |
|00003510| 67 65 74 2d 6c 61 72 67 | 65 73 74 2d 77 69 6e 64 |get-larg|est-wind|
|00003520| 6f 77 20 67 65 74 2d 6c | 72 75 2d 77 69 6e 64 6f |ow get-l|ru-windo|
|00003530| 77 20 69 64 65 6e 74 69 | 74 79 20 69 67 6e 6f 72 |w identi|ty ignor|
|00003540| 65 20 69 6e 74 65 67 65 | 72 70 20 69 6e 74 65 67 |e intege|rp integ|
|00003550| 65 72 2d 6f 72 2d 6d 61 | 72 6b 65 72 2d 70 20 69 |er-or-ma|rker-p i|
|00003560| 6e 74 65 72 61 63 74 69 | 76 65 2d 70 20 69 6e 76 |nteracti|ve-p inv|
|00003570| 6f 63 61 74 69 6f 6e 2d | 64 69 72 65 63 74 6f 72 |ocation-|director|
|00003580| 79 20 69 6e 76 6f 63 61 | 74 69 6f 6e 2d 6e 61 6d |y invoca|tion-nam|
|00003590| 65 20 6b 65 79 6d 61 70 | 70 20 6c 69 73 74 20 6c |e keymap|p list l|
|000035a0| 69 73 74 70 20 6d 61 6b | 65 2d 6d 61 72 6b 65 72 |istp mak|e-marker|
|000035b0| 20 6d 61 72 6b 20 6d 61 | 72 6b 2d 6d 61 72 6b 65 | mark ma|rk-marke|
|000035c0| 72 20 6d 61 72 6b 65 72 | 70 20 6d 65 6d 6f 72 79 |r marker|p memory|
|000035d0| 2d 6c 69 6d 69 74 20 6d | 69 6e 69 62 75 66 66 65 |-limit m|inibuffe|
|000035e0| 72 2d 77 69 6e 64 6f 77 | 20 6d 6f 75 73 65 2d 6d |r-window| mouse-m|
|000035f0| 6f 76 65 6d 65 6e 74 2d | 70 20 6e 61 74 6e 75 6d |ovement-|p natnum|
|00003600| 70 20 6e 6c 69 73 74 70 | 20 6e 6f 74 20 6e 75 6c |p nlistp| not nul|
|00003610| 6c 20 6e 75 6d 62 65 72 | 2d 6f 72 2d 6d 61 72 6b |l number|-or-mark|
|00003620| 65 72 2d 70 20 6e 75 6d | 62 65 72 70 20 6f 6e 65 |er-p num|berp one|
|00003630| 2d 77 69 6e 64 6f 77 2d | 70 20 6f 76 65 72 6c 61 |-window-|p overla|
|00003640| 79 70 20 70 6f 69 6e 74 | 20 70 6f 69 6e 74 2d 6d |yp point| point-m|
|00003650| 61 72 6b 65 72 20 70 6f | 69 6e 74 2d 6d 69 6e 20 |arker po|int-min |
|00003660| 70 6f 69 6e 74 2d 6d 61 | 78 20 70 72 6f 63 65 73 |point-ma|x proces|
|00003670| 73 70 20 73 65 6c 65 63 | 74 65 64 2d 77 69 6e 64 |sp selec|ted-wind|
|00003680| 6f 77 20 73 65 71 75 65 | 6e 63 65 70 20 73 74 72 |ow seque|ncep str|
|00003690| 69 6e 67 70 20 73 75 62 | 72 70 20 73 79 6d 62 6f |ingp sub|rp symbo|
|000036a0| 6c 70 20 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 2d |lp synta|x-table-|
|000036b0| 70 20 75 73 65 72 2d 66 | 75 6c 6c 2d 6e 61 6d 65 |p user-f|ull-name|
|000036c0| 20 75 73 65 72 2d 6c 6f | 67 69 6e 2d 6e 61 6d 65 | user-lo|gin-name|
|000036d0| 20 75 73 65 72 2d 6f 72 | 69 67 69 6e 61 6c 2d 6c | user-or|iginal-l|
|000036e0| 6f 67 69 6e 2d 6e 61 6d | 65 20 75 73 65 72 2d 72 |ogin-nam|e user-r|
|000036f0| 65 61 6c 2d 6c 6f 67 69 | 6e 2d 6e 61 6d 65 20 75 |eal-logi|n-name u|
|00003700| 73 65 72 2d 72 65 61 6c | 2d 75 69 64 20 75 73 65 |ser-real|-uid use|
|00003710| 72 2d 75 69 64 20 76 65 | 63 74 6f 72 20 76 65 63 |r-uid ve|ctor vec|
|00003720| 74 6f 72 70 20 77 69 6e | 64 6f 77 2d 63 6f 6e 66 |torp win|dow-conf|
|00003730| 69 67 75 72 61 74 69 6f | 6e 2d 70 20 77 69 6e 64 |iguratio|n-p wind|
|00003740| 6f 77 2d 6c 69 76 65 2d | 70 20 77 69 6e 64 6f 77 |ow-live-|p window|
|00003750| 70 29 20 73 69 64 65 2d | 65 66 66 65 63 74 2d 61 |p) side-|effect-a|
|00003760| 6e 64 2d 65 72 72 6f 72 | 2d 66 72 65 65 2d 66 6e |nd-error|-free-fn|
|00003770| 73 20 73 69 64 65 2d 65 | 66 66 65 63 74 2d 66 72 |s side-e|ffect-fr|
|00003780| 65 65 2d 66 6e 73 20 70 | 75 74 20 73 69 64 65 2d |ee-fns p|ut side-|
|00003790| 65 66 66 65 63 74 2d 66 | 72 65 65 20 74 20 65 72 |effect-f|ree t er|
|000037a0| 72 6f 72 2d 66 72 65 65 | 5d 20 35 29 0a 28 64 65 |ror-free|] 5).(de|
|000037b0| 66 61 6c 69 61 73 20 27 | 62 79 74 65 2d 63 6f 6d |falias '|byte-com|
|000037c0| 70 69 6c 65 2d 73 70 6c | 69 63 65 2d 69 6e 2d 61 |pile-spl|ice-in-a|
|000037d0| 6c 72 65 61 64 79 2d 63 | 6f 6d 70 69 6c 65 64 2d |lready-c|ompiled-|
|000037e0| 63 6f 64 65 20 23 5b 28 | 66 6f 72 6d 29 20 22 08 |code #[(|form) ".|
|000037f0| c1 3e 84 5c 6e 00 c2 0b | 21 87 c4 c5 0b 41 40 c6 |.>.\n...|!....A@.|
|00003800| 0b 38 c7 23 21 88 0e 08 | c9 0b 38 5c 5c 0e 5c 6e |.8.#!...|..8\\.\n|
|00003810| 5d 16 5c 6e 0e 08 54 89 | 16 08 87 22 20 5b 62 79 |].\n..T.|..." [by|
|00003820| 74 65 2d 6f 70 74 69 6d | 69 7a 65 20 28 74 20 6c |te-optim|ize (t l|
|00003830| 61 70 29 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |ap) byte|-compile|
|00003840| 2d 6e 6f 72 6d 61 6c 2d | 63 61 6c 6c 20 66 6f 72 |-normal-|call for|
|00003850| 6d 20 62 79 74 65 2d 69 | 6e 6c 69 6e 65 2d 6c 61 |m byte-i|nline-la|
|00003860| 70 63 6f 64 65 20 62 79 | 74 65 2d 64 65 63 6f 6d |pcode by|te-decom|
|00003870| 70 69 6c 65 2d 62 79 74 | 65 63 6f 64 65 2d 31 20 |pile-byt|ecode-1 |
|00003880| 32 20 74 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |2 t byte|-compile|
|00003890| 2d 64 65 70 74 68 20 33 | 20 62 79 74 65 2d 63 6f |-depth 3| byte-co|
|000038a0| 6d 70 69 6c 65 2d 6d 61 | 78 64 65 70 74 68 5d 20 |mpile-ma|xdepth] |
|000038b0| 35 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |5]).(byt|e-code "|
|000038c0| c0 c1 c2 c3 23 88 c4 15 | c5 0e 06 42 16 06 c0 87 |....#...|...B....|
|000038d0| 22 20 5b 70 75 74 20 62 | 79 74 65 2d 63 6f 64 65 |" [put b|yte-code|
|000038e0| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 20 62 79 | byte-co|mpile by|
|000038f0| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 73 70 6c 69 63 |te-compi|le-splic|
|00003900| 65 2d 69 6e 2d 61 6c 72 | 65 61 64 79 2d 63 6f 6d |e-in-alr|eady-com|
|00003910| 70 69 6c 65 64 2d 63 6f | 64 65 20 28 62 79 74 65 |piled-co|de (byte|
|00003920| 2d 63 6f 6e 73 74 61 6e | 74 20 62 79 74 65 2d 63 |-constan|t byte-c|
|00003930| 6f 6e 73 74 61 6e 74 32 | 20 62 79 74 65 2d 76 61 |onstant2| byte-va|
|00003940| 72 72 65 66 20 62 79 74 | 65 2d 76 61 72 73 65 74 |rref byt|e-varset|
|00003950| 20 62 79 74 65 2d 76 61 | 72 62 69 6e 64 29 20 62 | byte-va|rbind) b|
|00003960| 79 74 65 2d 63 6f 6e 73 | 74 72 65 66 2d 6f 70 73 |yte-cons|tref-ops|
|00003970| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00003980| 73 74 5d 20 34 29 0a 23 | 40 31 38 20 44 6f 6e 27 |st] 4).#|@18 Don'|
|00003990| 74 20 63 61 6c 6c 20 74 | 68 69 73 21 1f 0a 28 64 |t call t|his!..(d|
|000039a0| 65 66 61 6c 69 61 73 20 | 27 64 69 73 61 73 73 65 |efalias |'disasse|
|000039b0| 6d 62 6c 65 2d 6f 66 66 | 73 65 74 20 23 5b 6e 69 |mble-off|set #[ni|
|000039c0| 6c 20 22 c0 09 42 11 c2 | 09 42 11 c3 09 42 11 08 |l "..B..|.B...B..|
|000039d0| 5c 66 57 83 4b 00 c5 08 | c6 5c 22 1e 07 c5 08 c8 |\fW.K...|.\".....|
|000039e0| 5c 22 10 0e 07 c9 3d 83 | 2d 00 5c 6e 54 12 0b 5c |\"....=.|-.\nT..\|
|000039f0| 6e 48 82 49 00 0e 07 c6 | 3d 83 47 00 5c 6e 54 12 |nH.I....|=.G.\nT.|
|00003a00| 0b 5c 6e 48 5c 6e 54 12 | ca 0b 5c 6e 48 cb 5c 22 |.\nH\nT.|..\nH.\"|
|00003a10| 5c 5c 82 49 00 0e 07 29 | 87 08 0e 5c 66 59 83 5a |\\.I...)|...\fY.Z|
|00003a20| 00 08 0e 5c 66 5a 0e 5c | 66 10 87 08 0e 0d 59 83 |...\fZ.\|f.....Y.|
|00003a30| 79 00 08 0e 0e 58 83 79 | 00 5c 6e 54 12 0b 5c 6e |y....X.y|.\nT..\n|
|00003a40| 48 5c 6e 54 12 ca 0b 5c | 6e 48 cb 5c 22 5c 5c 87 |H\nT...\|nH.\"\\.|
|00003a50| 08 0e 0f 59 85 8d 00 08 | 0e 10 58 85 8d 00 5c 6e |...Y....|..X...\n|
|00003a60| 54 12 0b 5c 6e 48 87 22 | 20 5b 6f 70 20 63 75 72 |T..\nH."| [op cur|
|00003a70| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 20 70 |rent-loa|d-list p|
|00003a80| 74 72 20 62 79 74 65 73 | 20 62 79 74 65 2d 6e 74 |tr bytes| byte-nt|
|00003a90| 68 20 6c 6f 67 61 6e 64 | 20 37 20 74 65 6d 20 32 |h logand| 7 tem 2|
|00003aa0| 34 38 20 36 20 6c 73 68 | 20 38 20 62 79 74 65 2d |48 6 lsh| 8 byte-|
|00003ab0| 63 6f 6e 73 74 61 6e 74 | 20 62 79 74 65 2d 63 6f |constant| byte-co|
|00003ac0| 6e 73 74 61 6e 74 32 20 | 62 79 74 65 2d 67 6f 74 |nstant2 |byte-got|
|00003ad0| 6f 2d 69 66 2d 6e 6f 74 | 2d 6e 69 6c 2d 65 6c 73 |o-if-not|-nil-els|
|00003ae0| 65 2d 70 6f 70 20 62 79 | 74 65 2d 6c 69 73 74 4e |e-pop by|te-listN|
|00003af0| 20 62 79 74 65 2d 69 6e | 73 65 72 74 4e 5d 20 34 | byte-in|sertN] 4|
|00003b00| 20 28 23 24 20 2e 20 31 | 34 37 33 32 29 5d 29 0a | (#$ . 1|4732)]).|
|00003b10| 23 40 35 33 20 54 75 72 | 6e 73 20 42 59 54 45 43 |#@53 Tur|ns BYTEC|
|00003b20| 4f 44 45 20 69 6e 74 6f | 20 6c 61 70 63 6f 64 65 |ODE into| lapcode|
|00003b30| 2c 20 72 65 66 65 72 72 | 69 6e 67 20 74 6f 20 43 |, referr|ing to C|
|00003b40| 4f 4e 53 54 56 45 43 2e | 1f 0a 28 64 65 66 61 6c |ONSTVEC.|..(defal|
|00003b50| 69 61 73 20 27 62 79 74 | 65 2d 64 65 63 6f 6d 70 |ias 'byt|e-decomp|
|00003b60| 69 6c 65 2d 62 79 74 65 | 63 6f 64 65 20 23 5b 28 |ile-byte|code #[(|
|00003b70| 62 79 74 65 73 20 63 6f | 6e 73 74 76 65 63 29 20 |bytes co|nstvec) |
|00003b80| 22 c0 89 c1 1a 1b 1c c5 | 0e 06 0e 07 5c 22 2b 87 |".......|....\"+.|
|00003b90| 22 20 5b 6e 69 6c 20 30 | 20 62 79 74 65 2d 63 6f |" [nil 0| byte-co|
|00003ba0| 6d 70 69 6c 65 2d 74 61 | 67 2d 6e 75 6d 62 65 72 |mpile-ta|g-number|
|00003bb0| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 76 61 | byte-co|mpile-va|
|00003bc0| 72 69 61 62 6c 65 73 20 | 62 79 74 65 2d 63 6f 6d |riables |byte-com|
|00003bd0| 70 69 6c 65 2d 63 6f 6e | 73 74 61 6e 74 73 20 62 |pile-con|stants b|
|00003be0| 79 74 65 2d 64 65 63 6f | 6d 70 69 6c 65 2d 62 79 |yte-deco|mpile-by|
|00003bf0| 74 65 63 6f 64 65 2d 31 | 20 62 79 74 65 73 20 63 |tecode-1| bytes c|
|00003c00| 6f 6e 73 74 76 65 63 5d | 20 33 20 28 23 24 20 2e |onstvec]| 3 (#$ .|
|00003c10| 20 31 35 31 32 35 29 5d | 29 0a 28 64 65 66 61 6c | 15125)]|).(defal|
|00003c20| 69 61 73 20 27 62 79 74 | 65 2d 64 65 63 6f 6d 70 |ias 'byt|e-decomp|
|00003c30| 69 6c 65 2d 62 79 74 65 | 63 6f 64 65 2d 31 20 23 |ile-byte|code-1 #|
|00003c40| 5b 28 62 79 74 65 73 20 | 63 6f 6e 73 74 76 65 63 |[(bytes |constvec|
|00003c50| 20 26 6f 70 74 69 6f 6e | 61 6c 20 6d 61 6b 65 2d | &option|al make-|
|00003c60| 73 70 6c 69 63 65 61 62 | 6c 65 29 20 22 08 47 c1 |spliceab|le) ".G.|
|00003c70| c2 89 89 89 89 89 89 89 | c1 1b 1c 1d 1e 06 1e 07 |........|........|
|00003c80| 1e 08 1e 09 1e 5c 6e 1e | 0b 1e 5c 66 1e 0d 0e 5c |.....\n.|..\f...\|
|00003c90| 66 0e 0d 55 84 02 01 0e | 0e 84 33 00 0e 5c 66 0e |f..U....|..3..\f.|
|00003ca0| 06 42 16 06 08 0e 5c 66 | 48 16 08 0e 5c 66 16 0b |.B....\f|H...\f..|
|00003cb0| cf 20 16 07 0e 10 0e 08 | 48 89 16 08 0e 11 3e 83 |. ......|H.....>.|
|00003cc0| 69 00 0e 07 0e 09 9e 86 | 63 00 0e 07 d2 20 42 0e |i.......|c.... B.|
|00003cd0| 09 42 89 16 09 40 41 16 | 07 82 e8 00 0e 08 d3 3d |.B...@A.|.......=|
|00003ce0| 83 76 00 d4 16 08 82 7e | 00 0e 08 0e 15 3e 83 c0 |.v.....~|.....>..|
|00003cf0| 00 0e 16 0e 07 48 15 0e | 08 d4 3d 83 ab 00 0d 3b |.....H..|..=....;|
|00003d00| 83 98 00 d7 0d 0e 18 5c | 22 82 9c 00 0d 0e 18 9e |.......\|".......|
|00003d10| 86 bb 00 0d 43 0e 18 42 | 89 16 18 40 82 bb 00 0d |....C..B|...@....|
|00003d20| 0e 19 9e 86 bb 00 0d 43 | 0e 19 42 89 16 19 40 16 |.......C|..B...@.|
|00003d30| 07 82 e8 00 0e 0e 83 e8 | 00 0e 08 da 3d 83 e8 00 |........|....=...|
|00003d40| 0e 5c 66 0e 0d 53 55 83 | db 00 c2 16 08 82 e8 00 |.\f..SU.|........|
|00003d50| 5c 66 86 e3 00 d2 20 89 | 14 16 07 db 16 08 0e 0b |\f.... .|........|
|00003d60| 0e 08 0e 07 86 f2 00 c1 | 42 42 0e 06 42 16 06 0e |........|BB..B...|
|00003d70| 5c 66 54 89 16 5c 66 82 | 21 00 0e 06 89 1e 1c 83 |\fT..\f.|!.......|
|00003d80| 3e 01 0e 1c 40 a7 84 35 | 01 0e 1c 40 40 0e 09 9e |>...@..5|...@@...|
|00003d90| 89 15 83 35 01 0e 1c c2 | 0d 41 42 0e 1c 41 42 a1 |...5....|.AB..AB.|
|00003da0| 88 dd 0d 0e 09 5c 22 16 | 09 0e 1c 41 16 1c 0e 1c |.....\".|...A....|
|00003db0| 41 89 16 1c 84 5c 6e 01 | 29 0e 09 83 4a 01 de df |A....\n.|)...J...|
|00003dc0| 0e 09 5c 22 88 0e 06 40 | 41 40 84 57 01 0e 06 41 |..\"...@|A@.W...A|
|00003dd0| 16 06 5c 66 83 63 01 c2 | 5c 66 42 0e 06 42 16 06 |..\f.c..|\fB..B..|
|00003de0| e0 e1 0e 06 9f 5c 22 2e | 0b 87 22 20 5b 62 79 74 |.....\".|.." [byt|
|00003df0| 65 73 20 30 20 6e 69 6c | 20 72 65 74 63 6f 75 6e |es 0 nil| retcoun|
|00003e00| 74 20 65 6e 64 74 61 67 | 20 74 6d 70 20 6c 61 70 |t endtag| tmp lap|
|00003e10| 20 6f 66 66 73 65 74 20 | 6f 70 20 74 61 67 73 20 | offset |op tags |
|00003e20| 74 61 67 20 6f 70 74 72 | 20 70 74 72 20 6c 65 6e |tag optr| ptr len|
|00003e30| 67 74 68 20 6d 61 6b 65 | 2d 73 70 6c 69 63 65 61 |gth make|-splicea|
|00003e40| 62 6c 65 20 64 69 73 61 | 73 73 65 6d 62 6c 65 2d |ble disa|ssemble-|
|00003e50| 6f 66 66 73 65 74 20 62 | 79 74 65 2d 63 6f 64 65 |offset b|yte-code|
|00003e60| 2d 76 65 63 74 6f 72 20 | 62 79 74 65 2d 67 6f 74 |-vector |byte-got|
|00003e70| 6f 2d 6f 70 73 20 62 79 | 74 65 2d 63 6f 6d 70 69 |o-ops by|te-compi|
|00003e80| 6c 65 2d 6d 61 6b 65 2d | 74 61 67 20 62 79 74 65 |le-make-|tag byte|
|00003e90| 2d 63 6f 6e 73 74 61 6e | 74 32 20 62 79 74 65 2d |-constan|t2 byte-|
|00003ea0| 63 6f 6e 73 74 61 6e 74 | 20 62 79 74 65 2d 63 6f |constant| byte-co|
|00003eb0| 6e 73 74 72 65 66 2d 6f | 70 73 20 63 6f 6e 73 74 |nstref-o|ps const|
|00003ec0| 76 65 63 20 61 73 73 6f | 63 20 62 79 74 65 2d 63 |vec asso|c byte-c|
|00003ed0| 6f 6d 70 69 6c 65 2d 63 | 6f 6e 73 74 61 6e 74 73 |ompile-c|onstants|
|00003ee0| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 76 61 | byte-co|mpile-va|
|00003ef0| 72 69 61 62 6c 65 73 20 | 62 79 74 65 2d 72 65 74 |riables |byte-ret|
|00003f00| 75 72 6e 20 62 79 74 65 | 2d 67 6f 74 6f 20 72 65 |urn byte|-goto re|
|00003f10| 73 74 20 64 65 6c 71 20 | 65 72 72 6f 72 20 22 6f |st delq |error "o|
|00003f20| 70 74 69 6d 69 7a 65 72 | 20 65 72 72 6f 72 3a 20 |ptimizer| error: |
|00003f30| 6d 69 73 73 65 64 20 74 | 61 67 73 20 25 73 22 20 |missed t|ags %s" |
|00003f40| 6d 61 70 63 61 72 20 23 | 5b 28 65 6c 74 29 20 22 |mapcar #|[(elt) "|
|00003f50| 08 a7 83 07 00 08 87 08 | 41 87 22 20 5b 65 6c 74 |........|A." [elt|
|00003f60| 5d 20 31 5d 5d 20 31 32 | 5d 29 0a 28 62 79 74 65 |] 1]] 12|]).(byte|
|00003f70| 2d 63 6f 64 65 20 22 c0 | 09 42 12 c2 0b 42 13 c4 |-code ".|.B...B..|
|00003f80| 15 c5 0b 42 13 c0 87 22 | 20 5b 54 41 47 20 62 79 |...B..."| [TAG by|
|00003f90| 74 65 2d 67 6f 74 6f 2d | 6f 70 73 20 62 79 74 65 |te-goto-|ops byte|
|00003fa0| 2d 74 61 67 72 65 66 2d | 6f 70 73 20 63 75 72 72 |-tagref-|ops curr|
|00003fb0| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 20 28 62 |ent-load|-list (b|
|00003fc0| 79 74 65 2d 67 6f 74 6f | 2d 69 66 2d 6e 69 6c 20 |yte-goto|-if-nil |
|00003fd0| 62 79 74 65 2d 67 6f 74 | 6f 2d 69 66 2d 6e 6f 74 |byte-got|o-if-not|
|00003fe0| 2d 6e 69 6c 20 62 79 74 | 65 2d 67 6f 74 6f 2d 69 |-nil byt|e-goto-i|
|00003ff0| 66 2d 6e 69 6c 2d 65 6c | 73 65 2d 70 6f 70 20 62 |f-nil-el|se-pop b|
|00004000| 79 74 65 2d 67 6f 74 6f | 2d 69 66 2d 6e 6f 74 2d |yte-goto|-if-not-|
|00004010| 6e 69 6c 2d 65 6c 73 65 | 2d 70 6f 70 29 20 62 79 |nil-else|-pop) by|
|00004020| 74 65 2d 63 6f 6e 64 69 | 74 69 6f 6e 61 6c 2d 6f |te-condi|tional-o|
|00004030| 70 73 5d 20 32 29 0a 23 | 40 34 36 20 42 79 74 65 |ps] 2).#|@46 Byte|
|00004040| 2d 63 6f 64 65 73 20 74 | 68 61 74 20 63 61 6e 20 |-codes t|hat can |
|00004050| 62 65 20 6d 6f 76 65 64 | 20 70 61 73 74 20 61 6e |be moved| past an|
|00004060| 20 75 6e 62 69 6e 64 2e | 1f 0a 28 64 65 66 63 6f | unbind.|..(defco|
|00004070| 6e 73 74 20 62 79 74 65 | 2d 61 66 74 65 72 2d 75 |nst byte|-after-u|
|00004080| 6e 62 69 6e 64 2d 6f 70 | 73 20 28 71 75 6f 74 65 |nbind-op|s (quote|
|00004090| 20 28 62 79 74 65 2d 63 | 6f 6e 73 74 61 6e 74 20 | (byte-c|onstant |
|000040a0| 62 79 74 65 2d 64 75 70 | 20 62 79 74 65 2d 73 79 |byte-dup| byte-sy|
|000040b0| 6d 62 6f 6c 70 20 62 79 | 74 65 2d 63 6f 6e 73 70 |mbolp by|te-consp|
|000040c0| 20 62 79 74 65 2d 73 74 | 72 69 6e 67 70 20 62 79 | byte-st|ringp by|
|000040d0| 74 65 2d 6c 69 73 74 70 | 20 62 79 74 65 2d 6e 75 |te-listp| byte-nu|
|000040e0| 6d 62 65 72 70 20 62 79 | 74 65 2d 69 6e 74 65 67 |mberp by|te-integ|
|000040f0| 65 72 70 20 62 79 74 65 | 2d 65 71 20 62 79 74 65 |erp byte|-eq byte|
|00004100| 2d 65 71 75 61 6c 20 62 | 79 74 65 2d 6e 6f 74 20 |-equal b|yte-not |
|00004110| 62 79 74 65 2d 63 6f 6e | 73 20 62 79 74 65 2d 6c |byte-con|s byte-l|
|00004120| 69 73 74 31 20 62 79 74 | 65 2d 6c 69 73 74 32 20 |ist1 byt|e-list2 |
|00004130| 62 79 74 65 2d 69 6e 74 | 65 72 61 63 74 69 76 65 |byte-int|eractive|
|00004140| 2d 70 29 29 20 28 23 24 | 20 2e 20 31 36 34 34 34 |-p)) (#$| . 16444|
|00004150| 29 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |)).(byte|-code ".|
|00004160| 11 c1 5c 6e 42 12 c3 09 | a4 14 c4 5c 6e 42 12 c1 |..\nB...|...\nB..|
|00004170| 87 22 20 5b 28 62 79 74 | 65 2d 63 6f 6e 73 74 61 |." [(byt|e-consta|
|00004180| 6e 74 20 62 79 74 65 2d | 64 75 70 20 62 79 74 65 |nt byte-|dup byte|
|00004190| 2d 73 79 6d 62 6f 6c 70 | 20 62 79 74 65 2d 63 6f |-symbolp| byte-co|
|000041a0| 6e 73 70 20 62 79 74 65 | 2d 73 74 72 69 6e 67 70 |nsp byte|-stringp|
|000041b0| 20 62 79 74 65 2d 6c 69 | 73 74 70 20 62 79 74 65 | byte-li|stp byte|
|000041c0| 2d 69 6e 74 65 67 65 72 | 70 20 62 79 74 65 2d 6e |-integer|p byte-n|
|000041d0| 75 6d 62 65 72 70 20 62 | 79 74 65 2d 65 71 20 62 |umberp b|yte-eq b|
|000041e0| 79 74 65 2d 65 71 75 61 | 6c 20 62 79 74 65 2d 6e |yte-equa|l byte-n|
|000041f0| 6f 74 20 62 79 74 65 2d | 63 61 72 2d 73 61 66 65 |ot byte-|car-safe|
|00004200| 20 62 79 74 65 2d 63 64 | 72 2d 73 61 66 65 20 62 | byte-cd|r-safe b|
|00004210| 79 74 65 2d 63 6f 6e 73 | 20 62 79 74 65 2d 6c 69 |yte-cons| byte-li|
|00004220| 73 74 31 20 62 79 74 65 | 2d 6c 69 73 74 32 20 62 |st1 byte|-list2 b|
|00004230| 79 74 65 2d 70 6f 69 6e | 74 20 62 79 74 65 2d 70 |yte-poin|t byte-p|
|00004240| 6f 69 6e 74 2d 6d 61 78 | 20 62 79 74 65 2d 70 6f |oint-max| byte-po|
|00004250| 69 6e 74 2d 6d 69 6e 20 | 62 79 74 65 2d 66 6f 6c |int-min |byte-fol|
|00004260| 6c 6f 77 69 6e 67 2d 63 | 68 61 72 20 62 79 74 65 |lowing-c|har byte|
|00004270| 2d 70 72 65 63 65 64 69 | 6e 67 2d 63 68 61 72 20 |-precedi|ng-char |
|00004280| 62 79 74 65 2d 63 75 72 | 72 65 6e 74 2d 63 6f 6c |byte-cur|rent-col|
|00004290| 75 6d 6e 20 62 79 74 65 | 2d 65 6f 6c 70 20 62 79 |umn byte|-eolp by|
|000042a0| 74 65 2d 65 6f 62 70 20 | 62 79 74 65 2d 62 6f 6c |te-eobp |byte-bol|
|000042b0| 70 20 62 79 74 65 2d 62 | 6f 62 70 20 62 79 74 65 |p byte-b|obp byte|
|000042c0| 2d 63 75 72 72 65 6e 74 | 2d 62 75 66 66 65 72 20 |-current|-buffer |
|000042d0| 62 79 74 65 2d 69 6e 74 | 65 72 61 63 74 69 76 65 |byte-int|eractive|
|000042e0| 2d 70 29 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |-p) byte|-compile|
|000042f0| 2d 73 69 64 65 2d 65 66 | 66 65 63 74 2d 61 6e 64 |-side-ef|fect-and|
|00004300| 2d 65 72 72 6f 72 2d 66 | 72 65 65 2d 6f 70 73 20 |-error-f|ree-ops |
|00004310| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00004320| 74 20 28 62 79 74 65 2d | 76 61 72 72 65 66 20 62 |t (byte-|varref b|
|00004330| 79 74 65 2d 6e 74 68 20 | 62 79 74 65 2d 6d 65 6d |yte-nth |byte-mem|
|00004340| 71 20 62 79 74 65 2d 63 | 61 72 20 62 79 74 65 2d |q byte-c|ar byte-|
|00004350| 63 64 72 20 62 79 74 65 | 2d 6c 65 6e 67 74 68 20 |cdr byte|-length |
|00004360| 62 79 74 65 2d 61 72 65 | 66 20 62 79 74 65 2d 73 |byte-are|f byte-s|
|00004370| 79 6d 62 6f 6c 2d 76 61 | 6c 75 65 20 62 79 74 65 |ymbol-va|lue byte|
|00004380| 2d 67 65 74 20 62 79 74 | 65 2d 63 6f 6e 63 61 74 |-get byt|e-concat|
|00004390| 32 20 62 79 74 65 2d 63 | 6f 6e 63 61 74 33 20 62 |2 byte-c|oncat3 b|
|000043a0| 79 74 65 2d 73 75 62 31 | 20 62 79 74 65 2d 61 64 |yte-sub1| byte-ad|
|000043b0| 64 31 20 62 79 74 65 2d | 65 71 6c 73 69 67 6e 20 |d1 byte-|eqlsign |
|000043c0| 62 79 74 65 2d 67 74 72 | 20 62 79 74 65 2d 6c 73 |byte-gtr| byte-ls|
|000043d0| 73 20 62 79 74 65 2d 6c | 65 71 20 62 79 74 65 2d |s byte-l|eq byte-|
|000043e0| 67 65 71 20 62 79 74 65 | 2d 64 69 66 66 20 62 79 |geq byte|-diff by|
|000043f0| 74 65 2d 6e 65 67 61 74 | 65 20 62 79 74 65 2d 70 |te-negat|e byte-p|
|00004400| 6c 75 73 20 62 79 74 65 | 2d 6d 61 78 20 62 79 74 |lus byte|-max byt|
|00004410| 65 2d 6d 69 6e 20 62 79 | 74 65 2d 6d 75 6c 74 20 |e-min by|te-mult |
|00004420| 62 79 74 65 2d 63 68 61 | 72 2d 61 66 74 65 72 20 |byte-cha|r-after |
|00004430| 62 79 74 65 2d 63 68 61 | 72 2d 73 79 6e 74 61 78 |byte-cha|r-syntax|
|00004440| 20 62 79 74 65 2d 62 75 | 66 66 65 72 2d 73 75 62 | byte-bu|ffer-sub|
|00004450| 73 74 72 69 6e 67 20 62 | 79 74 65 2d 73 74 72 69 |string b|yte-stri|
|00004460| 6e 67 3d 20 62 79 74 65 | 2d 73 74 72 69 6e 67 3c |ng= byte|-string<|
|00004470| 20 62 79 74 65 2d 6e 74 | 68 63 64 72 20 62 79 74 | byte-nt|hcdr byt|
|00004480| 65 2d 65 6c 74 20 62 79 | 74 65 2d 6d 65 6d 62 65 |e-elt by|te-membe|
|00004490| 72 20 62 79 74 65 2d 61 | 73 73 71 20 62 79 74 65 |r byte-a|ssq byte|
|000044a0| 2d 71 75 6f 20 62 79 74 | 65 2d 72 65 6d 29 20 62 |-quo byt|e-rem) b|
|000044b0| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 73 69 64 65 |yte-comp|ile-side|
|000044c0| 2d 65 66 66 65 63 74 2d | 66 72 65 65 2d 6f 70 73 |-effect-|free-ops|
|000044d0| 5d 20 32 29 0a 23 40 31 | 37 34 20 44 45 46 56 41 |] 2).#@1|74 DEFVA|
|000044e0| 52 5f 42 4f 4f 4c 20 76 | 61 72 69 61 62 6c 65 73 |R_BOOL v|ariables|
|000044f0| 2e 20 20 47 69 76 69 6e | 67 20 74 68 65 73 65 20 |.  Givin|g these |
|00004500| 61 6e 79 20 6e 6f 6e 2d | 6e 69 6c 20 76 61 6c 75 |any non-|nil valu|
|00004510| 65 20 73 65 74 73 20 74 | 68 65 6d 20 74 6f 20 74 |e sets t|hem to t|
|00004520| 2e 0a 49 66 20 74 68 69 | 73 20 64 6f 65 73 20 6e |..If thi|s does n|
|00004530| 6f 74 20 65 6e 75 6d 65 | 72 61 74 65 20 61 6c 6c |ot enume|rate all|
|00004540| 20 44 45 46 56 41 52 5f | 42 4f 4f 4c 20 76 61 72 | DEFVAR_|BOOL var|
|00004550| 69 61 62 6c 65 73 2c 20 | 74 68 65 20 62 79 74 65 |iables, |the byte|
|00004560| 2d 6f 70 74 69 6d 69 7a | 65 72 0a 6d 61 79 20 67 |-optimiz|er.may g|
|00004570| 65 6e 65 72 61 74 65 20 | 69 6e 63 6f 72 72 65 63 |enerate |incorrec|
|00004580| 74 20 63 6f 64 65 2e 1f | 0a 28 64 65 66 63 6f 6e |t code..|.(defcon|
|00004590| 73 74 20 62 79 74 65 2d | 62 6f 6f 6c 65 61 6e 2d |st byte-|boolean-|
|000045a0| 76 61 72 73 20 28 71 75 | 6f 74 65 20 28 61 62 62 |vars (qu|ote (abb|
|000045b0| 72 65 76 2d 61 6c 6c 2d | 63 61 70 73 20 61 62 62 |rev-all-|caps abb|
|000045c0| 72 65 76 73 2d 63 68 61 | 6e 67 65 64 20 62 79 74 |revs-cha|nged byt|
|000045d0| 65 2d 6d 65 74 65 72 69 | 6e 67 2d 6f 6e 20 63 61 |e-meteri|ng-on ca|
|000045e0| 6e 6e 6f 74 2d 73 75 73 | 70 65 6e 64 20 63 6f 6d |nnot-sus|pend com|
|000045f0| 70 6c 65 74 69 6f 6e 2d | 61 75 74 6f 2d 68 65 6c |pletion-|auto-hel|
|00004600| 70 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 2d 69 67 6e |p comple|tion-ign|
|00004610| 6f 72 65 2d 63 61 73 65 | 20 63 75 72 73 6f 72 2d |ore-case| cursor-|
|00004620| 69 6e 2d 65 63 68 6f 2d | 61 72 65 61 20 64 65 62 |in-echo-|area deb|
|00004630| 75 67 2d 6f 6e 2d 6e 65 | 78 74 2d 63 61 6c 6c 20 |ug-on-ne|xt-call |
|00004640| 64 65 62 75 67 2d 6f 6e | 2d 71 75 69 74 20 64 65 |debug-on|-quit de|
|00004650| 6c 65 74 65 2d 65 78 69 | 74 65 64 2d 70 72 6f 63 |lete-exi|ted-proc|
|00004660| 65 73 73 65 73 20 65 6e | 61 62 6c 65 2d 72 65 63 |esses en|able-rec|
|00004670| 75 72 73 69 76 65 2d 6d | 69 6e 69 62 75 66 66 65 |ursive-m|inibuffe|
|00004680| 72 73 20 68 69 67 68 6c | 69 67 68 74 2d 6e 6f 6e |rs highl|ight-non|
|00004690| 73 65 6c 65 63 74 65 64 | 2d 77 69 6e 64 6f 77 73 |selected|-windows|
|000046a0| 20 69 6e 64 65 6e 74 2d | 74 61 62 73 2d 6d 6f 64 | indent-|tabs-mod|
|000046b0| 65 20 69 6e 68 69 62 69 | 74 2d 6c 6f 63 61 6c 2d |e inhibi|t-local-|
|000046c0| 6d 65 6e 75 2d 62 61 72 | 2d 6d 65 6e 75 73 20 69 |menu-bar|-menus i|
|000046d0| 6e 73 65 72 74 2d 64 65 | 66 61 75 6c 74 2d 64 69 |nsert-de|fault-di|
|000046e0| 72 65 63 74 6f 72 79 20 | 69 6e 76 65 72 73 65 2d |rectory |inverse-|
|000046f0| 76 69 64 65 6f 20 6c 6f | 61 64 2d 66 6f 72 63 65 |video lo|ad-force|
|00004700| 2d 64 6f 63 2d 73 74 72 | 69 6e 67 73 20 6c 6f 61 |-doc-str|ings loa|
|00004710| 64 2d 69 6e 2d 70 72 6f | 67 72 65 73 73 20 6d 65 |d-in-pro|gress me|
|00004720| 6e 75 2d 70 72 6f 6d 70 | 74 69 6e 67 20 6d 69 6e |nu-promp|ting min|
|00004730| 69 62 75 66 66 65 72 2d | 61 75 74 6f 2d 72 61 69 |ibuffer-|auto-rai|
|00004740| 73 65 20 6d 6f 64 65 2d | 6c 69 6e 65 2d 69 6e 76 |se mode-|line-inv|
|00004750| 65 72 73 65 2d 76 69 64 | 65 6f 20 6d 75 6c 74 69 |erse-vid|eo multi|
|00004760| 70 6c 65 2d 66 72 61 6d | 65 73 20 6e 6f 2d 72 65 |ple-fram|es no-re|
|00004770| 64 72 61 77 2d 6f 6e 2d | 72 65 65 6e 74 65 72 20 |draw-on-|reenter |
|00004780| 6e 6f 6e 69 6e 74 65 72 | 61 63 74 69 76 65 20 70 |noninter|active p|
|00004790| 61 72 73 65 2d 73 65 78 | 70 2d 69 67 6e 6f 72 65 |arse-sex|p-ignore|
|000047a0| 2d 63 6f 6d 6d 65 6e 74 | 73 20 70 6f 70 2d 75 70 |-comment|s pop-up|
|000047b0| 2d 66 72 61 6d 65 73 20 | 70 6f 70 2d 75 70 2d 77 |-frames |pop-up-w|
|000047c0| 69 6e 64 6f 77 73 20 70 | 72 69 6e 74 2d 65 73 63 |indows p|rint-esc|
|000047d0| 61 70 65 2d 6e 65 77 6c | 69 6e 65 73 20 73 79 73 |ape-newl|ines sys|
|000047e0| 74 65 6d 2d 75 73 65 73 | 2d 74 65 72 6d 69 6e 66 |tem-uses|-terminf|
|000047f0| 6f 20 74 72 75 6e 63 61 | 74 65 2d 70 61 72 74 69 |o trunca|te-parti|
|00004800| 61 6c 2d 77 69 64 74 68 | 2d 77 69 6e 64 6f 77 73 |al-width|-windows|
|00004810| 20 76 69 73 69 62 6c 65 | 2d 62 65 6c 6c 20 76 6d | visible|-bell vm|
|00004820| 73 2d 73 74 6d 6c 66 2d | 72 65 63 66 6d 20 77 6f |s-stmlf-|recfm wo|
|00004830| 72 64 73 2d 69 6e 63 6c | 75 64 65 2d 65 73 63 61 |rds-incl|ude-esca|
|00004840| 70 65 73 29 29 20 28 23 | 24 20 2e 20 31 37 36 32 |pes)) (#|$ . 1762|
|00004850| 37 29 29 0a 23 40 36 34 | 20 53 69 6d 70 6c 65 20 |7)).#@64| Simple |
|00004860| 70 65 65 70 68 6f 6c 65 | 20 6f 70 74 69 6d 69 7a |peephole| optimiz|
|00004870| 65 72 2e 20 20 4c 41 50 | 20 69 73 20 62 6f 74 68 |er.  LAP| is both|
|00004880| 20 6d 6f 64 69 66 69 65 | 64 20 61 6e 64 20 72 65 | modifie|d and re|
|00004890| 74 75 72 6e 65 64 2e 1f | 0a 28 64 65 66 61 6c 69 |turned..|.(defali|
|000048a0| 61 73 20 27 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |as 'byte|-optimiz|
|000048b0| 65 2d 6c 61 70 63 6f 64 | 65 20 23 5b 28 6c 61 70 |e-lapcod|e #[(lap|
|000048c0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 66 6f 72 2d 65 | &option|al for-e|
|000048d0| 66 66 65 63 74 29 20 22 | c0 89 89 89 89 89 c1 c2 |ffect) "|........|
|000048e0| c0 89 89 89 0b 83 14 00 | 5c 66 82 15 00 0d 1e 06 |........|\f......|
|000048f0| 1e 07 1e 08 1e 09 1e 5c | 6e 1e 0b 1e 5c 66 1e 0d |.......\|n...\f..|
|00004900| 1e 0e 1e 0f 1e 10 1e 11 | 1e 12 0e 5c 66 83 d5 09 |........|...\f...|
|00004910| 0e 5c 66 c1 3d 84 46 00 | 0e 13 d4 3e 83 46 00 d5 |.\f.=.F.|...>.F..|
|00004920| d6 21 88 0e 17 16 5c 6e | c0 16 5c 66 0e 5c 6e 83 |.!....\n|..\f.\n.|
|00004930| 2f 00 0e 5c 6e 40 16 12 | 0e 5c 6e 41 40 16 10 d8 |/..\n@..|.\nA@...|
|00004940| 0e 5c 6e 38 16 0e 0e 10 | 40 d9 3d 83 ef 00 0e 12 |.\n8....|@.=.....|
|00004950| 40 0e 06 3e 83 ef 00 da | 16 5c 66 0e 1b 0e 12 40 |@..>....|.\f....@|
|00004960| 4a 48 16 09 0e 5c 6e 41 | 16 5c 6e 0e 09 dc 55 83 |JH...\nA|.\n...U.|
|00004970| a8 00 0e 13 d4 3e 83 99 | 00 d5 dd 0e 12 5c 22 88 |.....>..|.....\".|
|00004980| de 0e 12 de 0e 10 0e 17 | 5c 22 5c 22 16 17 82 cc |........|\"\"....|
|00004990| 09 0e 09 c2 55 83 c7 00 | 0e 13 d4 3e 83 bc 00 d5 |....U...|...>....|
|000049a0| df 0e 12 5c 22 88 de 0e | 12 0e 17 5c 22 16 17 82 |...\"...|...\"...|
|000049b0| cc 09 0e 09 e0 55 83 e8 | 00 0e 13 d4 3e 83 db 00 |.....U..|....>...|
|000049c0| d5 e1 0e 12 5c 22 88 0e | 12 d9 a0 88 0e 12 c2 a1 |....\"..|........|
|000049d0| 88 82 cc 09 e2 e3 21 88 | 82 cc 09 0e 12 40 0e 24 |......!.|.....@.$|
|000049e0| 3e 83 71 01 0e 12 41 0e | 10 3d 83 71 01 0e 12 40 |>.q...A.|.=.q...@|
|000049f0| e5 3d 83 17 01 de 0e 12 | 0e 17 5c 22 16 17 e6 16 |.=......|..\"....|
|00004a00| 09 82 38 01 0e 12 40 0e | 27 3e 83 30 01 0e 12 d9 |..8...@.|'>.0....|
|00004a10| 89 16 09 a0 88 0e 12 c2 | a1 88 82 38 01 e2 e8 d8 |........|...8....|
|00004a20| 0e 12 38 5c 22 88 0e 13 | e9 3e 83 6b 01 0e 2a 83 |..8\"...|.>.k..*.|
|00004a30| 6b 01 0e 13 eb 3e 83 6b | 01 da ec 89 1e 2d 1e 2e |k....>.k|.....-..|
|00004a40| 1e 2f f0 f1 f2 0e 10 41 | 40 0e 10 41 40 f3 0e 09 |./.....A|@..A@...|
|00004a50| 21 0e 10 41 40 25 21 88 | 2b da 16 5c 66 82 cc 09 |!..A@%!.|+..\f...|
|00004a60| 0e 0e 40 f4 3d 83 25 02 | 0e 10 41 0e 0e 41 3d 83 |..@.=.%.|..A..A=.|
|00004a70| 25 02 0e 10 40 f5 3e 83 | 25 02 0e 0e 41 40 0e 36 |%...@.>.|%...A@.6|
|00004a80| 3e 89 16 09 83 a0 01 0e | 12 40 f7 3d 83 cc 09 da |>.......|.@.=....|
|00004a90| 16 5c 66 0e 12 40 f8 3e | 83 fd 01 0e 09 83 b9 01 |.\f..@.>|........|
|00004aa0| 0e 12 41 40 f9 3e 83 bf | 01 0e 12 41 82 cf 01 da |..A@.>..|...A....|
|00004ab0| 0e 3a 9e 86 cf 01 da 43 | 0e 3a 42 89 16 3a 40 16 |.:.....C|.:B..:@.|
|00004ac0| 09 0e 13 d4 3e 83 ed 01 | d5 fb 0e 12 0e 10 0e 0e |....>...|........|
|00004ad0| 0e 12 0e 10 0e 12 40 0e | 09 42 26 07 88 0e 0e 0e |......@.|.B&.....|
|00004ae0| 12 40 a0 88 0e 0e 0e 09 | a1 88 82 cc 09 0e 13 d4 |.@......|........|
|00004af0| 3e 83 0e 02 d5 fc 0e 10 | 0e 0e 0e 10 24 88 0e 0e |>.......|....$...|
|00004b00| 0e 10 40 a0 88 0e 10 fd | a0 88 0e 10 c2 a1 88 dc |..@.....|........|
|00004b10| 16 0b 82 cc 09 0e 12 40 | fd 3d 83 62 02 0e 0e 40 |.......@|.=.b...@|
|00004b20| d9 3d 83 62 02 0e 10 40 | fe 3e 83 62 02 0e 13 d4 |.=.b...@|.>.b....|
|00004b30| 3e 83 4b 02 d5 ff 0e 10 | 89 23 88 da 16 5c 66 0e |>.K.....|.#...\f.|
|00004b40| 5c 6e 41 16 5c 6e de 0e | 12 de 0e 0e 0e 17 5c 22 |\nA.\n..|......\"|
|00004b50| 5c 22 16 17 82 cc 09 0e | 12 40 81 40 00 3d 83 c9 |\"......|.@.@.=..|
|00004b60| 02 0e 10 40 81 41 00 3d | 84 80 02 0e 10 40 81 42 |...@.A.=|.....@.B|
|00004b70| 00 3d 83 c9 02 0e 13 d4 | 3e 83 a5 02 d5 81 43 00 |.=......|>.....C.|
|00004b80| 0e 10 89 40 81 41 00 3d | 83 9c 02 81 42 00 82 9f |...@.A.=|....B...|
|00004b90| 02 81 41 00 0e 10 41 42 | 23 88 0e 10 89 40 81 41 |..A...AB|#....@.A|
|00004ba0| 00 3d 83 b6 02 81 42 00 | 82 b9 02 81 41 00 a0 88 |.=....B.|....A...|
|00004bb0| de 0e 12 0e 17 5c 22 16 | 17 da 16 5c 66 82 cc 09 |.....\".|...\f...|
|00004bc0| 0e 12 40 81 41 00 3d 84 | dd 02 0e 12 40 81 42 00 |..@.A.=.|....@.B.|
|00004bd0| 3d 83 34 03 0e 10 40 e5 | 3d 83 34 03 0e 12 41 0e |=.4...@.|=.4...A.|
|00004be0| 0e 3d 83 34 03 0e 12 40 | 81 41 00 3d 83 fe 02 81 |.=.4...@|.A.=....|
|00004bf0| 42 00 82 01 03 81 41 00 | 1e 44 0e 13 d4 3e 83 1f |B.....A.|.D...>..|
|00004c00| 03 d5 81 45 00 0e 12 0e | 10 0e 0e 0e 44 0e 10 41 |...E....|....D..A|
|00004c10| 42 0e 0e 26 06 88 de 0e | 12 0e 17 5c 22 16 17 0e |B..&....|...\"...|
|00004c20| 10 0e 44 a0 88 da 16 5c | 66 29 82 cc 09 0e 12 40 |..D....\|f).....@|
|00004c30| f7 3d 83 d8 03 0e 10 40 | 0e 46 3e 83 d8 03 0e 10 |.=.....@|.F>.....|
|00004c40| 40 81 41 00 3d 84 59 03 | 0e 10 40 81 47 00 3d 83 |@.A.=.Y.|..@.G.=.|
|00004c50| 60 03 0e 12 41 40 82 65 | 03 0e 12 41 40 3f 83 8d |`...A@.e|...A@?..|
|00004c60| 03 0e 13 d4 3e 83 79 03 | d5 81 48 00 0e 12 0e 10 |....>.y.|..H.....|
|00004c70| 23 88 0e 5c 6e 41 16 5c | 6e de 0e 12 de 0e 10 0e |#..\nA.\|n.......|
|00004c80| 17 5c 22 5c 22 16 17 82 | d2 03 0e 10 40 0e 27 3e |.\"\"...|....@.'>|
|00004c90| 83 b7 03 0e 13 d4 3e 83 | ac 03 d5 81 49 00 0e 12 |......>.|....I...|
|00004ca0| 0e 10 e5 0e 10 41 42 24 | 88 de 0e 12 0e 17 5c 22 |.....AB$|......\"|
|00004cb0| 16 17 82 cd 03 0e 13 d4 | 3e 83 cd 03 d5 81 49 00 |........|>.....I.|
|00004cc0| 0e 12 0e 10 e5 0e 10 41 | 42 24 88 0e 10 e5 a0 88 |.......A|B$......|
|00004cd0| da 16 5c 66 82 cc 09 0e | 12 40 f4 3d 83 63 04 0e |..\f....|.@.=.c..|
|00004ce0| 5c 6e 41 89 16 09 40 40 | fd 3d 83 f6 03 0e 09 41 |\nA...@@|.=.....A|
|00004cf0| 89 16 09 82 e6 03 0e 12 | 41 0e 09 40 41 3d 83 63 |........|A..@A=.c|
|00004d00| 04 0e 09 40 40 f4 3d 83 | 63 04 0e 13 81 4a 00 3e |...@@.=.|c....J.>|
|00004d10| 83 4d 04 81 4b 00 1e 4c | 0e 5c 6e 41 16 08 0e 09 |.M..K..L|.\nA....|
|00004d20| 0e 08 3d 84 35 04 0e 08 | 41 16 08 0e 4c 81 4d 00 |..=.5...|A...L.M.|
|00004d30| 50 16 4c 82 1d 04 0e 13 | d4 3e 83 4c 04 d5 81 4e |P.L.....|.>.L...N|
|00004d40| 00 0e 12 0e 4c 0e 12 89 | 0e 4c 26 06 88 29 da 16 |....L...|.L&..)..|
|00004d50| 5c 66 0e 09 40 fd a0 88 | 0e 09 40 c2 a1 88 0e 09 |\f..@...|..@.....|
|00004d60| 16 5c 6e 82 cc 09 0e 12 | 40 81 4f 00 3d 83 d7 04 |.\n.....|@.O.=...|
|00004d70| 0e 10 40 81 4f 00 3d 83 | d7 04 0e 13 81 50 00 3e |..@.O.=.|.....P.>|
|00004d80| 83 a6 04 0e 2a 83 a6 04 | 0e 13 eb 3e 83 a6 04 da |....*...|...>....|
|00004d90| ec 89 1e 2d 1e 2e 1e 2f | f0 f1 81 51 00 0e 10 41 |...-.../|...Q...A|
|00004da0| 40 0e 12 41 40 23 21 88 | 2b 0e 17 16 07 81 52 00 |@..A@#!.|+.....R.|
|00004db0| 0e 12 0e 07 5c 22 89 16 | 08 83 c9 04 0e 08 0e 10 |....\"..|........|
|00004dc0| a1 88 0e 08 0e 07 3e 41 | 16 07 82 aa 04 de 0e 12 |......>A|........|
|00004dd0| 0e 17 5c 22 16 17 da 16 | 5c 66 82 cc 09 0e 12 40 |..\"....|\f.....@|
|00004de0| 81 4f 00 3d 83 25 05 81 | 52 00 0e 12 0e 17 5c 22 |.O.=.%..|R.....\"|
|00004df0| 84 25 05 0e 13 81 53 00 | 3e 83 17 05 0e 2a 83 17 |.%....S.|>....*..|
|00004e00| 05 0e 13 eb 3e 83 17 05 | da ec 89 1e 2d 1e 2e 1e |....>...|....-...|
|00004e10| 2f f0 f1 81 54 00 0e 12 | 41 40 5c 22 21 88 2b de |/...T...|A@\"!.+.|
|00004e20| 0e 12 0e 17 5c 22 16 17 | da 16 5c 66 82 cc 09 0e |....\"..|..\f....|
|00004e30| 12 40 81 55 00 3e 83 04 | 06 0e 10 40 81 56 00 3e |.@.U.>..|...@.V.>|
|00004e40| 84 04 06 0e 5c 6e 16 09 | c2 0e 13 81 57 00 3e c0 |....\n..|....W.>.|
|00004e50| 89 1e 58 1e 4c 1e 59 1e | 5a 0e 09 41 89 16 09 83 |..X.L.Y.|Z..A....|
|00004e60| 7f 05 0e 09 40 40 81 4f | 00 3d 84 7f 05 0e 59 83 |....@@.O|.=....Y.|
|00004e70| 4e 05 0e 09 40 0e 58 42 | 16 58 0e 4c 81 5b 00 50 |N...@.XB|.X.L.[.P|
|00004e80| 16 4c 0e 5a 54 16 5a 82 | 4e 05 0e 59 83 f7 05 0e |.L.ZT.Z.|N..Y....|
|00004e90| 09 40 40 81 4f 00 3d 83 | 9c 05 f1 81 5c 5c 00 0e |.@@.O.=.|....\\..|
|00004ea0| 09 40 41 40 5c 22 82 a5 | 05 0e 09 40 86 a5 05 81 |.@A@\"..|...@....|
|00004eb0| 4b 00 1e 5d 0e 5a 81 5e | 00 57 83 cf 05 81 5f 00 |K..].Z.^|.W...._.|
|00004ec0| d5 81 60 00 0e 4c 81 61 | 00 51 0e 12 0e 58 9f 0e |..`..L.a|.Q...X..|
|00004ed0| 5d 0e 12 0e 5d 45 a4 24 | 88 82 f6 05 0e 13 d4 3e |]...]E.$|.......>|
|00004ee0| 83 f6 05 d5 81 62 00 0e | 12 0e 5a 89 dc 55 83 ea |.....b..|..Z..U..|
|00004ef0| 05 81 4b 00 82 ed 05 81 | 63 00 0e 5d 0e 12 0e 5d |..K.....|c..]...]|
|00004f00| 26 07 88 29 0e 5c 6e 0e | 09 a1 88 2c da 16 5c 66 |&..).\n.|...,..\f|
|00004f10| 82 cc 09 0e 10 40 81 64 | 00 3d 83 3e 06 0e 12 40 |.....@.d|.=.>...@|
|00004f20| 0e 65 3e 83 3e 06 0e 13 | d4 3e 83 2b 06 d5 81 66 |.e>.>...|.>.+...f|
|00004f30| 00 0e 12 0e 10 89 0e 12 | 25 88 0e 5c 6e 0e 10 a0 |........|%..\n...|
|00004f40| 88 0e 5c 6e 41 0e 12 a0 | 88 da 16 5c 66 82 cc 09 |..\nA...|...\f...|
|00004f50| 0e 10 40 81 64 00 3d 83 | d5 06 0e 12 40 81 67 00 |..@.d.=.|....@.g.|
|00004f60| 3e 83 d5 06 c2 0e 10 41 | 57 83 d5 06 0e 10 89 41 |>......A|W......A|
|00004f70| 53 a1 c2 55 83 6c 06 de | 0e 10 0e 5c 6e 5c 22 88 |S..U.l..|...\n\".|
|00004f80| 0e 12 40 81 68 00 3d 83 | 80 06 0e 5c 6e d9 c2 42 |..@.h.=.|...\n..B|
|00004f90| a0 88 82 88 06 de 0e 12 | 0e 17 5c 22 16 17 0e 13 |........|..\"....|
|00004fa0| d4 3e 83 cf 06 d5 81 66 | 00 0e 12 0e 10 40 0e 10 |.>.....f|.....@..|
|00004fb0| 41 54 42 0e 12 40 81 68 | 00 3d 83 ad 06 0e 5c 6e |ATB..@.h|.=....\n|
|00004fc0| 40 82 b1 06 0e 5c 6e 41 | 40 0e 10 41 c2 55 84 ca |@....\nA|@..A.U..|
|00004fd0| 06 0e 12 40 81 68 00 3d | 83 ca 06 0e 5c 6e 41 40 |...@.h.=|....\nA@|
|00004fe0| 82 cd 06 81 4b 00 25 88 | da 16 5c 66 82 cc 09 0e |....K.%.|..\f....|
|00004ff0| 12 40 0e 24 3e 83 3a 07 | 0e 12 41 0e 17 3e 41 40 |.@.$>.:.|..A..>A@|
|00005000| 89 16 09 40 81 69 00 3e | 83 3a 07 0e 09 0e 12 3d |...@.i.>|.:.....=|
|00005010| 84 cc 09 0e 12 40 e5 3d | 84 09 07 0e 09 40 e5 3d |.....@.=|.....@.=|
|00005020| 83 cc 09 0e 13 d4 3e 83 | 1c 07 d5 81 6a 00 0e 12 |......>.|....j...|
|00005030| 40 0e 09 89 24 88 0e 09 | 40 81 6b 00 3d 83 2d 07 |@...$...|@.k.=.-.|
|00005040| 0e 12 81 6b 00 a0 88 0e | 12 0e 09 41 a1 88 da 16 |...k....|...A....|
|00005050| 5c 66 82 cc 09 0e 12 40 | 81 6c 00 3e 83 e0 07 0e |\f.....@|.l.>....|
|00005060| 12 41 0e 17 3e 41 89 16 | 09 40 40 81 6d 00 3e 83 |.A..>A..|.@@.m.>.|
|00005070| e0 07 0e 12 0e 09 40 3d | 84 e0 07 0e 09 40 16 08 |......@=|.....@..|
|00005080| 0e 12 40 81 6e 00 9e 16 | 07 0e 08 40 0e 07 3e 83 |..@.n...|...@..>.|
|00005090| 9c 07 0e 12 0e 08 40 a0 | 88 0e 12 0e 08 41 a1 88 |......@.|.....A..|
|000050a0| 0e 13 d4 3e 83 da 07 d5 | 81 6f 00 0e 12 40 0e 08 |...>....|.o...@..|
|000050b0| 0e 12 24 88 82 da 07 81 | 4f 00 dc 0e 09 38 40 3d |..$.....|O....8@=|
|000050c0| 84 b4 07 0e 09 81 70 00 | 20 0e 09 41 42 a1 88 0e |......p.| ..AB...|
|000050d0| 13 d4 3e 83 ca 07 d5 81 | 71 00 0e 12 40 0e 08 0e |..>.....|q...@...|
|000050e0| 07 41 40 24 88 0e 12 0e | 07 41 40 a0 88 0e 12 0e |.A@$....|.A@.....|
|000050f0| 09 41 40 a1 88 da 16 5c | 66 82 cc 09 0e 12 40 f7 |.A@....\|f.....@.|
|00005100| 3d 83 92 08 0e 10 40 e5 | 3d 83 92 08 0e 10 41 0e |=.....@.|=.....A.|
|00005110| 17 3e 41 89 16 09 40 40 | 81 72 00 3e 83 92 08 0e |.>A...@@|.r.>....|
|00005120| 10 0e 09 40 3d 84 92 08 | 0e 09 40 89 16 08 40 0e |...@=...|..@...@.|
|00005130| 12 41 40 84 20 08 81 73 | 00 82 23 08 81 74 00 3e |.A@. ..s|..#..t.>|
|00005140| 83 53 08 0e 13 d4 3e 83 | 3c 08 d5 81 75 00 0e 12 |.S....>.|<...u...|
|00005150| 0e 08 0e 12 0e 08 25 88 | 0e 10 0e 08 40 a0 88 0e |......%.|....@...|
|00005160| 10 0e 08 41 a1 88 c0 0e | 5c 6e 42 16 5c 6e 82 8c |...A....|\nB.\n..|
|00005170| 08 0e 13 d4 3e 83 64 08 | d5 81 76 00 0e 12 0e 08 |....>.d.|..v.....|
|00005180| 23 88 81 4f 00 dc 0e 09 | 38 40 3d 84 7c 08 0e 09 |#..O....|8@=.|...|
|00005190| 81 70 00 20 0e 09 41 42 | a1 88 0e 10 0e 09 41 40 |.p. ..AB|......A@|
|000051a0| a1 88 de 0e 12 0e 17 5c | 22 16 17 da 16 5c 66 82 |.......\|"....\f.|
|000051b0| cc 09 0e 10 40 81 77 00 | 3d 83 27 09 0e 0e 40 e5 |....@.w.|=.'...@.|
|000051c0| 3d 83 27 09 0e 0e 41 0e | 5c 6e 3e 84 27 09 0e 0e |=.'...A.|\n>.'...|
|000051d0| 41 0e 17 3e 41 89 16 09 | 40 40 f4 3d 83 27 09 0e |A..>A...|@@.=.'..|
|000051e0| 09 40 41 0e 10 41 3d 83 | 27 09 0e 10 41 40 0e 36 |.@A..A=.|'...A@.6|
|000051f0| 3e 84 27 09 81 70 00 20 | 1e 78 0e 13 d4 3e 83 05 |>.'..p. |.x...>..|
|00005200| 09 d5 81 79 00 0e 0e 41 | 41 40 0e 09 40 0e 10 0e |...y...A|A@..@...|
|00005210| 0e 89 41 41 40 0e 09 40 | 0e 78 41 40 fd 0e 10 e5 |..AA@..@|.xA@....|
|00005220| 0e 78 42 26 0b 88 0e 5c | 6e fd c2 42 0e 5c 6e 41 |.xB&...\|n..B.\nA|
|00005230| 42 a1 88 0e 09 0e 0e 0e | 78 a1 0e 09 41 42 a1 88 |B.......|x...AB..|
|00005240| 29 dc 16 0b da 16 5c 66 | 82 cc 09 0e 12 40 e5 3d |).....\f|.....@.=|
|00005250| 83 cc 09 0e 10 40 81 4f | 00 3d 83 cc 09 0e 10 0e |.....@.O|.=......|
|00005260| 12 41 0e 17 3e 41 89 16 | 09 40 41 3d 83 cc 09 0e |.A..>A..|.@A=....|
|00005270| 09 40 40 81 7a 00 3e 83 | cc 09 81 70 00 20 1e 78 |.@@.z.>.|...p. .x|
|00005280| 0e 13 d4 3e 83 88 09 d5 | 81 7b 00 0e 12 0e 10 41 |...>....|.{.....A|
|00005290| 40 0e 12 41 41 40 0e 09 | 40 0e 09 40 40 81 7c 00 |@..AA@..|@..@@.|.|
|000052a0| 9e 41 0e 78 42 0e 78 41 | 40 26 07 88 0e 09 0e 12 |.A.xB.xA|@&......|
|000052b0| 0e 78 a1 0e 09 41 42 a1 | 88 0e 09 40 40 81 47 00 |.x...AB.|...@@.G.|
|000052c0| 3d 83 ba 09 0e 5c 6e f7 | c0 0e 3a 9e 86 b3 09 c0 |=....\n.|..:.....|
|000052d0| 43 0e 3a 42 89 16 3a 40 | 42 0e 5c 6e 41 42 a1 88 |C.:B..:@|B.\nAB..|
|000052e0| 0e 12 0e 09 40 40 81 7d | 00 3e 41 40 a0 88 29 da |....@@.}|.>A@..).|
|000052f0| 16 5c 66 0e 5c 6e 41 89 | 16 5c 6e 82 4f 00 c0 16 |.\f.\nA.|.\n.O...|
|00005300| 3a c0 16 7e 0e 17 89 16 | 5c 6e 83 26 0b 0e 5c 6e |:..~....|\n.&..\n|
|00005310| 40 16 12 0e 5c 6e 41 40 | 16 10 0e 12 40 0e 7f 3e |@...\nA@|....@..>|
|00005320| 83 24 5c 6e 0e 12 41 f7 | 3d 83 13 5c 6e 0e 12 41 |.$\n..A.|=..\n..A|
|00005330| 0e 7e 3e 84 24 5c 6e 0e | 12 41 0e 7e 42 16 7e 82 |.~>.$\n.|.A.~B.~.|
|00005340| 24 5c 6e 0e 12 41 0e 3a | 3e 84 24 5c 6e 0e 12 41 |$\n..A.:|>.$\n..A|
|00005350| 0e 3a 42 16 3a 0e 12 40 | f7 3d 83 7e 5c 6e d8 0e |.:B.:..@|.=.~\n..|
|00005360| 5c 6e 38 40 f7 3d 83 7e | 5c 6e 0e 12 41 d8 0e 5c |\n8@.=.~|\n..A..\|
|00005370| 6e 38 40 3d 83 7e 5c 6e | 0e 10 40 81 80 00 3e 83 |n8@=.~\n|..@...>.|
|00005380| 7e 5c 6e 0e 13 d4 3e 83 | 63 5c 6e d5 81 81 00 0e |~\n...>.|c\n.....|
|00005390| 12 0e 10 0e 12 89 0e 10 | 26 06 88 0e 5c 6e 41 41 |........|&...\nAA|
|000053a0| 0e 10 40 0e 10 41 42 a0 | 88 0e 5c 6e 41 fd c2 42 |..@..AB.|..\nA..B|
|000053b0| a0 88 dc 16 0b 82 1d 0b | 0e 12 40 81 82 00 3e 83 |........|..@...>.|
|000053c0| d8 5c 6e 0e 5c 6e 16 09 | c0 16 08 0e 09 41 89 16 |.\n.\n..|.....A..|
|000053d0| 09 40 40 fd 3d 84 8f 5c | 6e 0e 12 41 0e 09 40 41 |.@@.=..\|n..A..@A|
|000053e0| 3d 83 bf 5c 6e 0e 12 40 | 0e 09 40 40 3d 83 bf 5c |=..\n..@|..@@=..\|
|000053f0| 6e 0e 09 fd c2 42 a0 88 | da 16 08 82 8f 5c 6e 0e |n....B..|.....\n.|
|00005400| 08 83 1d 0b 0e 13 d4 3e | 83 1d 0b d5 81 83 00 0e |.......>|........|
|00005410| 12 89 89 24 88 82 1d 0b | 0e 12 40 81 64 00 3d 83 |...$....|..@.d.=.|
|00005420| 1d 0b 0e 10 40 81 64 00 | 3d 83 1d 0b 0e 13 d4 3e |....@.d.|=......>|
|00005430| 83 08 0b d5 81 49 00 0e | 12 0e 10 81 64 00 0e 12 |.....I..|....d...|
|00005440| 41 0e 10 41 5c 5c 42 24 | 88 da 16 5c 66 de 0e 12 |A..A\\B$|...\f...|
|00005450| 0e 17 5c 22 16 17 0e 10 | 89 41 0e 12 41 5c 5c a1 |..\"....|.A..A\\.|
|00005460| 88 0e 5c 6e 41 89 16 5c | 6e 84 e3 09 0e 84 0e 0b |..\nA..\|n.......|
|00005470| 5c 5c 16 84 2e 0d 0e 17 | 87 22 20 5b 6e 69 6c 20 |\\......|." [nil |
|00005480| 66 69 72 73 74 2d 74 69 | 6d 65 20 30 20 62 79 74 |first-ti|me 0 byt|
|00005490| 65 2d 63 6f 6d 70 69 6c | 65 2d 64 65 6c 65 74 65 |e-compil|e-delete|
|000054a0| 2d 65 72 72 6f 72 73 20 | 62 79 74 65 2d 63 6f 6d |-errors |byte-com|
|000054b0| 70 69 6c 65 2d 73 69 64 | 65 2d 65 66 66 65 63 74 |pile-sid|e-effect|
|000054c0| 2d 66 72 65 65 2d 6f 70 | 73 20 62 79 74 65 2d 63 |-free-op|s byte-c|
|000054d0| 6f 6d 70 69 6c 65 2d 73 | 69 64 65 2d 65 66 66 65 |ompile-s|ide-effe|
|000054e0| 63 74 2d 61 6e 64 2d 65 | 72 72 6f 72 2d 66 72 65 |ct-and-e|rror-fre|
|000054f0| 65 2d 6f 70 73 20 73 69 | 64 65 2d 65 66 66 65 63 |e-ops si|de-effec|
|00005500| 74 2d 66 72 65 65 20 74 | 6d 70 33 20 74 6d 70 32 |t-free t|mp3 tmp2|
|00005510| 20 74 6d 70 20 72 65 73 | 74 20 61 64 64 2d 64 65 | tmp res|t add-de|
|00005520| 70 74 68 20 6b 65 65 70 | 2d 67 6f 69 6e 67 20 6f |pth keep|-going o|
|00005530| 66 66 32 20 6c 61 70 32 | 20 6f 66 66 31 20 6c 61 |ff2 lap2| off1 la|
|00005540| 70 31 20 6f 66 66 30 20 | 6c 61 70 30 20 62 79 74 |p1 off0 |lap0 byt|
|00005550| 65 2d 6f 70 74 69 6d 69 | 7a 65 2d 6c 6f 67 20 28 |e-optimi|ze-log (|
|00005560| 74 20 62 79 74 65 29 20 | 62 79 74 65 2d 63 6f 6d |t byte) |byte-com|
|00005570| 70 69 6c 65 2d 6c 6f 67 | 2d 6c 61 70 2d 31 20 22 |pile-log|-lap-1 "|
|00005580| 20 20 2d 2d 2d 2d 20 6e | 65 78 74 20 70 61 73 73 |  ---- n|ext pass|
|00005590| 22 20 6c 61 70 20 32 20 | 62 79 74 65 2d 64 69 73 |" lap 2 |byte-dis|
|000055a0| 63 61 72 64 20 74 20 62 | 79 74 65 2d 73 74 61 63 |card t b|yte-stac|
|000055b0| 6b 2b 2d 69 6e 66 6f 20 | 31 20 22 20 20 25 73 20 |k+-info |1 "  %s |
|000055c0| 64 69 73 63 61 72 64 09 | 2d 2d 3e 09 3c 64 65 6c |discard.|-->.<del|
|000055d0| 65 74 65 64 3e 22 20 64 | 65 6c 71 20 22 20 20 25 |eted>" d|elq "  %|
|000055e0| 73 20 64 69 73 63 61 72 | 64 09 2d 2d 3e 09 3c 64 |s discar|d.-->.<d|
|000055f0| 65 6c 65 74 65 64 3e 20 | 64 69 73 63 61 72 64 22 |eleted> |discard"|
|00005600| 20 2d 31 20 22 20 20 25 | 73 20 64 69 73 63 61 72 | -1 "  %|s discar|
|00005610| 64 09 2d 2d 3e 09 64 69 | 73 63 61 72 64 20 64 69 |d.-->.di|scard di|
|00005620| 73 63 61 72 64 22 20 65 | 72 72 6f 72 20 22 4f 70 |scard" e|rror "Op|
|00005630| 74 69 6d 69 7a 65 72 20 | 65 72 72 6f 72 3a 20 74 |timizer |error: t|
|00005640| 6f 6f 20 6d 75 63 68 20 | 6f 6e 20 74 68 65 20 73 |oo much |on the s|
|00005650| 74 61 63 6b 22 20 62 79 | 74 65 2d 67 6f 74 6f 2d |tack" by|te-goto-|
|00005660| 6f 70 73 20 62 79 74 65 | 2d 67 6f 74 6f 20 22 3c |ops byte|-goto "<|
|00005670| 64 65 6c 65 74 65 64 3e | 22 20 62 79 74 65 2d 67 |deleted>|" byte-g|
|00005680| 6f 74 6f 2d 61 6c 77 61 | 79 73 2d 70 6f 70 2d 6f |oto-alwa|ys-pop-o|
|00005690| 70 73 20 22 44 65 70 74 | 68 20 63 6f 6e 66 6c 69 |ps "Dept|h confli|
|000056a0| 63 74 20 61 74 20 74 61 | 67 20 25 64 22 20 28 74 |ct at ta|g %d" (t|
|000056b0| 20 62 79 74 65 29 20 62 | 79 74 65 2d 6f 70 74 69 | byte) b|yte-opti|
|000056c0| 6d 69 7a 65 20 28 74 20 | 73 6f 75 72 63 65 29 20 |mize (t |source) |
|000056d0| 34 20 70 72 69 6e 74 2d | 6c 65 6e 67 74 68 20 70 |4 print-|length p|
|000056e0| 72 69 6e 74 2d 6c 65 76 | 65 6c 20 70 72 69 6e 74 |rint-lev|el print|
|000056f0| 2d 65 73 63 61 70 65 2d | 6e 65 77 6c 69 6e 65 73 |-escape-|newlines|
|00005700| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 6c 6f | byte-co|mpile-lo|
|00005710| 67 2d 31 20 66 6f 72 6d | 61 74 20 22 20 20 28 67 |g-1 form|at "  (g|
|00005720| 6f 74 6f 20 25 73 29 20 | 25 73 3a 09 2d 2d 3e 09 |oto %s) |%s:.-->.|
|00005730| 25 73 20 25 73 3a 22 20 | 70 72 69 6e 31 2d 74 6f |%s %s:" |prin1-to|
|00005740| 2d 73 74 72 69 6e 67 20 | 62 79 74 65 2d 76 61 72 |-string |byte-var|
|00005750| 72 65 66 20 28 62 79 74 | 65 2d 76 61 72 73 65 74 |ref (byt|e-varset|
|00005760| 20 62 79 74 65 2d 76 61 | 72 62 69 6e 64 29 20 62 | byte-va|rbind) b|
|00005770| 79 74 65 2d 62 6f 6f 6c | 65 61 6e 2d 76 61 72 73 |yte-bool|ean-vars|
|00005780| 20 62 79 74 65 2d 63 6f | 6e 73 74 61 6e 74 20 28 | byte-co|nstant (|
|00005790| 62 79 74 65 2d 63 6f 6e | 73 74 61 6e 74 20 62 79 |byte-con|stant by|
|000057a0| 74 65 2d 64 75 70 29 20 | 28 6e 69 6c 20 74 29 20 |te-dup) |(nil t) |
|000057b0| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 63 6f 6e |byte-com|pile-con|
|000057c0| 73 74 61 6e 74 73 20 22 | 20 20 25 73 20 25 73 20 |stants "|  %s %s |
|000057d0| 25 73 09 2d 2d 3e 09 25 | 73 20 25 73 20 25 73 22 |%s.-->.%|s %s %s"|
|000057e0| 20 22 20 20 25 73 20 25 | 73 09 2d 2d 3e 09 64 75 | "  %s %|s.-->.du|
|000057f0| 70 20 25 73 22 20 62 79 | 74 65 2d 64 75 70 20 28 |p %s" by|te-dup (|
|00005800| 62 79 74 65 2d 76 61 72 | 73 65 74 20 62 79 74 65 |byte-var|set byte|
|00005810| 2d 76 61 72 62 69 6e 64 | 29 20 22 20 20 64 75 70 |-varbind|) "  dup|
|00005820| 20 25 73 20 64 69 73 63 | 61 72 64 09 2d 2d 3e 09 | %s disc|ard.-->.|
|00005830| 25 73 22 20 62 79 74 65 | 2d 6e 6f 74 20 62 79 74 |%s" byte|-not byt|
|00005840| 65 2d 67 6f 74 6f 2d 69 | 66 2d 6e 69 6c 20 62 79 |e-goto-i|f-nil by|
|00005850| 74 65 2d 67 6f 74 6f 2d | 69 66 2d 6e 6f 74 2d 6e |te-goto-|if-not-n|
|00005860| 69 6c 20 22 20 20 6e 6f | 74 20 25 73 09 2d 2d 3e |il "  no|t %s.-->|
|00005870| 09 25 73 22 20 69 6e 76 | 65 72 73 65 20 22 20 20 |.%s" inv|erse "  |
|00005880| 25 73 20 25 73 20 25 73 | 3a 09 2d 2d 3e 09 25 73 |%s %s %s|:.-->.%s|
|00005890| 20 25 73 3a 22 20 62 79 | 74 65 2d 63 6f 6e 64 69 | %s:" by|te-condi|
|000058a0| 74 69 6f 6e 61 6c 2d 6f | 70 73 20 62 79 74 65 2d |tional-o|ps byte-|
|000058b0| 67 6f 74 6f 2d 69 66 2d | 6e 69 6c 2d 65 6c 73 65 |goto-if-|nil-else|
|000058c0| 2d 70 6f 70 20 22 20 20 | 25 73 20 25 73 09 2d 2d |-pop "  |%s %s.--|
|000058d0| 3e 09 3c 64 65 6c 65 74 | 65 64 3e 22 20 22 20 20 |>.<delet|ed>" "  |
|000058e0| 25 73 20 25 73 09 2d 2d | 3e 09 25 73 22 20 28 74 |%s %s.--|>.%s" (t|
|000058f0| 20 62 79 74 65 29 20 22 | 22 20 73 74 72 20 22 20 | byte) "|" str " |
|00005900| 64 75 70 22 20 22 20 20 | 25 73 25 73 20 25 73 09 |dup" "  |%s%s %s.|
|00005910| 2d 2d 3e 09 25 73 25 73 | 20 64 75 70 22 20 54 41 |-->.%s%s| dup" TA|
|00005920| 47 20 28 74 20 62 79 74 | 65 29 20 22 20 20 61 64 |G (t byt|e) "  ad|
|00005930| 6a 61 63 65 6e 74 20 74 | 61 67 73 20 25 64 20 61 |jacent t|ags %d a|
|00005940| 6e 64 20 25 64 20 6d 65 | 72 67 65 64 22 20 72 61 |nd %d me|rged" ra|
|00005950| 73 73 71 20 28 74 20 62 | 79 74 65 29 20 22 20 20 |ssq (t b|yte) "  |
|00005960| 75 6e 75 73 65 64 20 74 | 61 67 20 25 64 20 72 65 |unused t|ag %d re|
|00005970| 6d 6f 76 65 64 22 20 28 | 62 79 74 65 2d 67 6f 74 |moved" (|byte-got|
|00005980| 6f 20 62 79 74 65 2d 72 | 65 74 75 72 6e 29 20 28 |o byte-r|eturn) (|
|00005990| 54 41 47 20 6e 69 6c 29 | 20 28 74 20 6c 61 70 29 |TAG nil)| (t lap)|
|000059a0| 20 64 65 6c 65 74 65 64 | 20 6f 70 74 2d 70 20 69 | deleted| opt-p i|
|000059b0| 20 22 20 25 73 22 20 22 | 25 64 3a 22 20 74 61 67 | " %s" "|%d:" tag|
|000059c0| 73 74 72 20 36 20 61 70 | 70 6c 79 20 22 20 20 25 |str 6 ap|ply "  %|
|000059d0| 73 22 20 22 20 25 73 09 | 2d 2d 3e 09 25 73 20 3c |s" " %s.|-->.%s <|
|000059e0| 64 65 6c 65 74 65 64 3e | 20 25 73 22 20 22 20 20 |deleted>| %s" "  |
|000059f0| 25 73 20 3c 25 64 20 75 | 6e 72 65 61 63 68 61 62 |%s <%d u|nreachab|
|00005a00| 6c 65 20 6f 70 25 73 3e | 20 25 73 09 2d 2d 3e 09 |le op%s>| %s.-->.|
|00005a10| 25 73 20 3c 64 65 6c 65 | 74 65 64 3e 20 25 73 22 |%s <dele|ted> %s"|
|00005a20| 20 22 73 22 20 62 79 74 | 65 2d 75 6e 62 69 6e 64 | "s" byt|e-unbind|
|00005a30| 20 62 79 74 65 2d 61 66 | 74 65 72 2d 75 6e 62 69 | byte-af|ter-unbi|
|00005a40| 6e 64 2d 6f 70 73 20 22 | 20 20 25 73 20 25 73 09 |nd-ops "|  %s %s.|
|00005a50| 2d 2d 3e 09 25 73 20 25 | 73 22 20 28 62 79 74 65 |-->.%s %|s" (byte|
|00005a60| 2d 76 61 72 62 69 6e 64 | 20 62 79 74 65 2d 73 61 |-varbind| byte-sa|
|00005a70| 76 65 2d 65 78 63 75 72 | 73 69 6f 6e 20 62 79 74 |ve-excur|sion byt|
|00005a80| 65 2d 73 61 76 65 2d 72 | 65 73 74 72 69 63 74 69 |e-save-r|estricti|
|00005a90| 6f 6e 29 20 62 79 74 65 | 2d 76 61 72 62 69 6e 64 |on) byte|-varbind|
|00005aa0| 20 28 62 79 74 65 2d 67 | 6f 74 6f 20 62 79 74 65 | (byte-g|oto byte|
|00005ab0| 2d 72 65 74 75 72 6e 29 | 20 22 20 20 25 73 20 5b |-return)| "  %s [|
|00005ac0| 25 73 5d 09 2d 2d 3e 09 | 25 73 22 20 62 79 74 65 |%s].-->.|%s" byte|
|00005ad0| 2d 72 65 74 75 72 6e 20 | 28 62 79 74 65 2d 67 6f |-return |(byte-go|
|00005ae0| 74 6f 2d 69 66 2d 6e 69 | 6c 2d 65 6c 73 65 2d 70 |to-if-ni|l-else-p|
|00005af0| 6f 70 20 62 79 74 65 2d | 67 6f 74 6f 2d 69 66 2d |op byte-|goto-if-|
|00005b00| 6e 6f 74 2d 6e 69 6c 2d | 65 6c 73 65 2d 70 6f 70 |not-nil-|else-pop|
|00005b10| 29 20 28 62 79 74 65 2d | 64 69 73 63 61 72 64 20 |) (byte-|discard |
|00005b20| 62 79 74 65 2d 67 6f 74 | 6f 2d 69 66 2d 6e 69 6c |byte-got|o-if-nil|
|00005b30| 20 62 79 74 65 2d 67 6f | 74 6f 2d 69 66 2d 6e 6f | byte-go|to-if-no|
|00005b40| 74 2d 6e 69 6c 20 62 79 | 74 65 2d 67 6f 74 6f 2d |t-nil by|te-goto-|
|00005b50| 69 66 2d 6e 69 6c 2d 65 | 6c 73 65 2d 70 6f 70 20 |if-nil-e|lse-pop |
|00005b60| 62 79 74 65 2d 67 6f 74 | 6f 2d 69 66 2d 6e 6f 74 |byte-got|o-if-not|
|00005b70| 2d 6e 69 6c 2d 65 6c 73 | 65 2d 70 6f 70 29 20 28 |-nil-els|e-pop) (|
|00005b80| 28 62 79 74 65 2d 67 6f | 74 6f 2d 69 66 2d 6e 69 |(byte-go|to-if-ni|
|00005b90| 6c 2d 65 6c 73 65 2d 70 | 6f 70 20 62 79 74 65 2d |l-else-p|op byte-|
|00005ba0| 67 6f 74 6f 2d 69 66 2d | 6e 69 6c 29 20 28 62 79 |goto-if-|nil) (by|
|00005bb0| 74 65 2d 67 6f 74 6f 2d | 69 66 2d 6e 6f 74 2d 6e |te-goto-|if-not-n|
|00005bc0| 69 6c 2d 65 6c 73 65 2d | 70 6f 70 20 62 79 74 65 |il-else-|pop byte|
|00005bd0| 2d 67 6f 74 6f 2d 69 66 | 2d 6e 6f 74 2d 6e 69 6c |-goto-if|-not-nil|
|00005be0| 29 29 20 22 20 20 25 73 | 2d 65 6c 73 65 2d 70 6f |)) "  %s|-else-po|
|00005bf0| 70 20 5b 25 73 5d 09 2d | 2d 3e 09 25 73 22 20 62 |p [%s].-|->.%s" b|
|00005c00| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 6d 61 6b 65 |yte-comp|ile-make|
|00005c10| 2d 74 61 67 20 22 20 20 | 25 73 20 5b 25 73 5d 09 |-tag "  |%s [%s].|
|00005c20| 2d 2d 3e 09 25 73 20 3c | 73 6b 69 70 3e 22 20 28 |-->.%s <|skip>" (|
|00005c30| 62 79 74 65 2d 64 69 73 | 63 61 72 64 20 62 79 74 |byte-dis|card byt|
|00005c40| 65 2d 67 6f 74 6f 2d 69 | 66 2d 6e 69 6c 20 62 79 |e-goto-i|f-nil by|
|00005c50| 74 65 2d 67 6f 74 6f 2d | 69 66 2d 6e 6f 74 2d 6e |te-goto-|if-not-n|
|00005c60| 69 6c 20 62 79 74 65 2d | 67 6f 74 6f 2d 69 66 2d |il byte-|goto-if-|
|00005c70| 6e 69 6c 2d 65 6c 73 65 | 2d 70 6f 70 20 62 79 74 |nil-else|-pop byt|
|00005c80| 65 2d 67 6f 74 6f 2d 69 | 66 2d 6e 6f 74 2d 6e 69 |e-goto-i|f-not-ni|
|00005c90| 6c 2d 65 6c 73 65 2d 70 | 6f 70 29 20 28 62 79 74 |l-else-p|op) (byt|
|00005ca0| 65 2d 67 6f 74 6f 2d 69 | 66 2d 6e 69 6c 20 62 79 |e-goto-i|f-nil by|
|00005cb0| 74 65 2d 67 6f 74 6f 2d | 69 66 2d 6e 69 6c 2d 65 |te-goto-|if-nil-e|
|00005cc0| 6c 73 65 2d 70 6f 70 29 | 20 28 62 79 74 65 2d 67 |lse-pop)| (byte-g|
|00005cd0| 6f 74 6f 2d 69 66 2d 6e | 6f 74 2d 6e 69 6c 20 62 |oto-if-n|ot-nil b|
|00005ce0| 79 74 65 2d 67 6f 74 6f | 2d 69 66 2d 6e 6f 74 2d |yte-goto|-if-not-|
|00005cf0| 6e 69 6c 2d 65 6c 73 65 | 2d 70 6f 70 29 20 22 20 |nil-else|-pop) " |
|00005d00| 20 25 73 20 67 6f 74 6f | 20 5b 25 73 5d 09 2d 2d | %s goto| [%s].--|
|00005d10| 3e 09 25 73 20 25 73 22 | 20 22 20 20 25 73 20 67 |>.%s %s"| "  %s g|
|00005d20| 6f 74 6f 20 5b 25 73 5d | 09 2d 2d 3e 09 3c 64 65 |oto [%s]|.-->.<de|
|00005d30| 6c 65 74 65 64 3e 20 67 | 6f 74 6f 20 3c 73 6b 69 |leted> g|oto <ski|
|00005d40| 70 3e 22 20 62 79 74 65 | 2d 76 61 72 73 65 74 20 |p>" byte|-varset |
|00005d50| 6e 65 77 74 61 67 20 22 | 20 20 25 73 3a 20 25 73 |newtag "|  %s: %s|
|00005d60| 20 2e 2e 2e 20 25 73 20 | 25 73 09 2d 2d 3e 09 25 | ... %s |%s.-->.%|
|00005d70| 73 3a 20 25 73 20 25 73 | 3a 20 2e 2e 2e 20 25 73 |s: %s %s|: ... %s|
|00005d80| 20 25 73 20 25 73 22 20 | 28 62 79 74 65 2d 67 6f | %s %s" |(byte-go|
|00005d90| 74 6f 20 62 79 74 65 2d | 67 6f 74 6f 2d 69 66 2d |to byte-|goto-if-|
|00005da0| 6e 69 6c 20 62 79 74 65 | 2d 67 6f 74 6f 2d 69 66 |nil byte|-goto-if|
|00005db0| 2d 6e 6f 74 2d 6e 69 6c | 20 62 79 74 65 2d 67 6f |-not-nil| byte-go|
|00005dc0| 74 6f 2d 69 66 2d 6e 69 | 6c 2d 65 6c 73 65 2d 70 |to-if-ni|l-else-p|
|00005dd0| 6f 70 29 20 22 25 73 20 | 25 73 3a 20 2e 2e 2e 20 |op) "%s |%s: ... |
|00005de0| 25 73 3a 20 25 73 09 2d | 2d 3e 09 25 73 20 2e 2e |%s: %s.-|->.%s ..|
|00005df0| 2e 20 25 73 3a 22 20 28 | 28 62 79 74 65 2d 67 6f |. %s:" (|(byte-go|
|00005e00| 74 6f 2d 69 66 2d 6e 69 | 6c 20 2e 20 62 79 74 65 |to-if-ni|l . byte|
|00005e10| 2d 67 6f 74 6f 2d 69 66 | 2d 6e 6f 74 2d 6e 69 6c |-goto-if|-not-nil|
|00005e20| 29 20 28 62 79 74 65 2d | 67 6f 74 6f 2d 69 66 2d |) (byte-|goto-if-|
|00005e30| 6e 6f 74 2d 6e 69 6c 20 | 2e 20 62 79 74 65 2d 67 |not-nil |. byte-g|
|00005e40| 6f 74 6f 2d 69 66 2d 6e | 69 6c 29 20 28 62 79 74 |oto-if-n|il) (byt|
|00005e50| 65 2d 67 6f 74 6f 2d 69 | 66 2d 6e 69 6c 2d 65 6c |e-goto-i|f-nil-el|
|00005e60| 73 65 2d 70 6f 70 20 2e | 20 62 79 74 65 2d 67 6f |se-pop .| byte-go|
|00005e70| 74 6f 2d 69 66 2d 6e 6f | 74 2d 6e 69 6c 2d 65 6c |to-if-no|t-nil-el|
|00005e80| 73 65 2d 70 6f 70 29 20 | 28 62 79 74 65 2d 67 6f |se-pop) |(byte-go|
|00005e90| 74 6f 2d 69 66 2d 6e 6f | 74 2d 6e 69 6c 2d 65 6c |to-if-no|t-nil-el|
|00005ea0| 73 65 2d 70 6f 70 20 2e | 20 62 79 74 65 2d 67 6f |se-pop .| byte-go|
|00005eb0| 74 6f 2d 69 66 2d 6e 69 | 6c 2d 65 6c 73 65 2d 70 |to-if-ni|l-else-p|
|00005ec0| 6f 70 29 29 20 28 62 79 | 74 65 2d 67 6f 74 6f 2d |op)) (by|te-goto-|
|00005ed0| 69 66 2d 6e 69 6c 2d 65 | 6c 73 65 2d 70 6f 70 20 |if-nil-e|lse-pop |
|00005ee0| 62 79 74 65 2d 67 6f 74 | 6f 2d 69 66 2d 6e 6f 74 |byte-got|o-if-not|
|00005ef0| 2d 6e 69 6c 20 62 79 74 | 65 2d 67 6f 74 6f 2d 69 |-nil byt|e-goto-i|
|00005f00| 66 2d 6e 69 6c 20 62 79 | 74 65 2d 67 6f 74 6f 2d |f-nil by|te-goto-|
|00005f10| 69 66 2d 6e 6f 74 2d 6e | 69 6c 20 62 79 74 65 2d |if-not-n|il byte-|
|00005f20| 67 6f 74 6f 20 62 79 74 | 65 2d 67 6f 74 6f 29 20 |goto byt|e-goto) |
|00005f30| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 76 61 72 |byte-com|pile-var|
|00005f40| 69 61 62 6c 65 73 20 62 | 79 74 65 2d 63 6f 6e 73 |iables b|yte-cons|
|00005f50| 74 72 65 66 2d 6f 70 73 | 20 28 62 79 74 65 2d 76 |tref-ops| (byte-v|
|00005f60| 61 72 62 69 6e 64 20 62 | 79 74 65 2d 76 61 72 73 |arbind b|yte-vars|
|00005f70| 65 74 29 20 22 20 20 25 | 73 20 25 73 20 25 73 09 |et) "  %|s %s %s.|
|00005f80| 2d 2d 3e 09 25 73 20 64 | 75 70 20 25 73 22 20 28 |-->.%s d|up %s" (|
|00005f90| 62 79 74 65 2d 63 6f 6e | 73 74 61 6e 74 20 62 79 |byte-con|stant by|
|00005fa0| 74 65 2d 76 61 72 72 65 | 66 29 20 22 20 20 25 73 |te-varre|f) "  %s|
|00005fb0| 20 5b 64 75 70 2f 25 73 | 5d 2e 2e 2e 09 2d 2d 3e | [dup/%s|]....-->|
|00005fc0| 09 25 73 20 64 75 70 2e | 2e 2e 22 20 62 79 74 65 |.%s dup.|.." byte|
|00005fd0| 2d 63 6f 6d 70 69 6c 65 | 2d 6d 61 78 64 65 70 74 |-compile|-maxdept|
|00005fe0| 68 5d 20 31 34 20 28 23 | 24 20 2e 20 31 38 35 32 |h] 14 (#|$ . 1852|
|00005ff0| 31 29 5d 29 0a 28 70 72 | 6f 76 69 64 65 20 28 71 |1)]).(pr|ovide (q|
|00006000| 75 6f 74 65 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 |uote byt|e-optimi|
|00006010| 7a 65 29 29 0a          |                         |ze)).   |        |
+--------+-------------------------+-------------------------+--------+--------+